liuhui0622

摘要： ``` #!/usr/bin/perl use strict; use warnings; use Data::Dumper; my @array=qw /fm1 fm2 fm3 fm4 fm5 fm6/; print "\n\@array: @array\n\n"; my %hash; my $key1="gene1"; my $key2="gene2"; print "\$key1:... 阅读全文