[½»Á÷] ¡¾ÇóÖú¡¿Çë½ÌÒ»¸öPerlÓïÑԵıà³Ì£¬Ð»Ð»£¡ ÒÑÓÐ2È˲ÎÓë

#!/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);

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 ...