- 论坛徽章:
- 8
|
一种思路- my %hash_aa;
- while (<DATA>) {
- my ($nul,$aa) = split /\t/,my $line = $_;
- $hash_aa{$nul} = $aa;
- }
- my $seq = 'CATTCATTCTCTAACAGCAGTAATATTAATAATTTTCAT';
- while ($seq =~ /(...)/g) {
- print "$hash_aa{$1}";
- }
- __DATA__
- TTT Phe
- TTC Phe
- TTA Leu
- TTG Leu
- TCT Ser
- TCC Ser
- TCA Ser
- TCG Ser
- TAT Tyr
- TAC Tyr
- TAA stop
- TAG stop
- TGT Cys
- TGC Cys
- TGA stop
- TGG Trp
- CTT Leu
- CTC Leu
- CTA Leu
- CTG Leu
- CCT Pro
- CCC Pro
- CCA Pro
- CCG Pro
- CAT His
- CAC His
- CAA Gln
- CAG Gln
- CGT Arg
- CGC Arg
- CGA Arg
- CGG Arg
- ATT Ile
- ATC Ile
- ATA Ile
- ATG Met
- ACT Thr
- ACC Thr
- ACA Thr
- ACG Thr
- AAT Asn
- AAC Asn
- AAA Lys
- AAG Lys
- AGT Ser
- AGC Ser
- AGA Arg
- AGG Arg
- GTT Val
- GTC Val
- GTA Val
- GTG Val
- GCT Ala
- GCC Ala
- GCA Ala
- GCG Ala
- GAT Asp
- GAC Asp
- GAA Glu
- GAG Glu
- GGT Gly
- GGC Gly
- GGA Gly
- GGG Gly
复制代码 |
|