[交流] 【求助】请教一个Perl语言的编程，谢谢！ 已有2人参与

Originally posted by holmescn at 2011-01-04 18:41:07:
这个很easy的题目阿，你到底有没有认真看书阿。
[code]
#!/usr/bin/perl -w

use strict;

my %genomespeak = ("AA" => "amino acid", "BAC" => "bacterial arti ...

#!/usr/bin/perl -w

use strict;

my %genomespeak = ("AA" => "amino acid", "BAC" => "bacterial artificial chromosome",
    "BLAST" => "basic local alignment search tool", "cDNA" => "complementary DNA",
    "DNA" => "deoxyribonucleic acid", "EST" => "expressed sequence tag",
    "FISH" => "fluorescence in situ hybridization", "mRNA" => "messenger RNA",-
    "rDNA" => "recombinant DNA", "RNA" => "ribonucleic acid",-
    "STS" => "sequence tagged site", "SNP" => "single nucleotide polymorphism",
    "YAC" => "yeast artificial chromosome");

open(IN, "< abbrevs") or die("$!");

while(){
    chop;
    print($genomespeak{$_}, "\n");
}
close(IN);