三密码子对应的碱基转换到氨基酸打表 Perl

如题

#按互补链转录
%table = ( 
    'TCA' => 'S',    # Serine 
    'TCC' => 'S',    # Serine 
    'TCG' => 'S',    # Serine 
    'TCT' => 'S',    # Serine 
    'TTC' => 'F',    # Phenylalanine 
    'TTT' => 'F',    # Phenylalanine 
    'TTA' => 'L',    # Leucine 
    'TTG' => 'L',    # Leucine 
    'TAC' => 'Y',    # Tyrosine  
    'TAT' => 'Y',    # Tyrosine 
    'TAA' => '_',    # Stop 
    'TAG' => '_',    # Stop 
    'TGC' => 'C',    # Cysteine 
    'TGT' => 'C',    # Cysteine 
    'TGA' => '_',    # Stop 
    'TGG' => 'W',    # Tryptophan 
    'CTA' => 'L',    # Leucine 
    'CTC' => 'L',    # Leucine 
    'CTG' => 'L',    # Leucine 
    'CTT' => 'L',    # Leucine 
    'CCA' => 'P',    # Proline 
    'CCC' => 'P',    # Proline 
    'CCG' => 'P',    # Proline 
    'CCT' => 'P',    # Proline 
    'CAC' => 'H',    # Histidine 
    'CAT' => 'H',    # Histidine 
    'CAA' => 'Q',    # Glutamine 
    'CAG' => 'Q',    # Glutamine 
    'CGA' => 'R',    # Arginine 
    'CGC' => 'R',    # Arginine 
    'CGG' => 'R',    # Arginine 
    'CGT' => 'R',    # Arginine 
    'ATA' => 'I',    # Isoleucine 
    'ATC' => 'I',    # Isoleucine 
    'ATT' => 'I',    # Isoleucine 
    'ATG' => 'M',    # Methionine 
    'ACA' => 'T',    # Threonine 
    'ACC' => 'T',    # Threonine 
    'ACG' => 'T',    # Threonine 
    'ACT' => 'T',    # Threonine 
    'AAC' => 'N',    # Asparagine 
    'AAT' => 'N',    # Asparagine 
    'AAA' => 'K',    # Lysine 
    'AAG' => 'K',    # Lysine 
    'AGC' => 'S',    # Serine 
    'AGT' => 'S',    # Serine 
    'AGA' => 'R',    # Arginine 
    'AGG' => 'R',    # Arginine 
    'GTA' => 'V',    # Valine 
    'GTC' => 'V',    # Valine 
    'GTG' => 'V',    # Valine 
    'GTT' => 'V',    # Valine 
    'GCA' => 'A',    # Alanine 
    'GCC' => 'A',    # Alanine 
    'GCG' => 'A',    # Alanine 
    'GCT' => 'A',    # Alanine     
    'GAC' => 'D',    # Aspartic Acid 
    'GAT' => 'D',    # Aspartic Acid 
    'GAA' => 'E',    # Glutamic Acid 
    'GAG' => 'E',    # Glutamic Acid 
    'GGA' => 'G',    # Glycine 
    'GGC' => 'G',    # Glycine 
    'GGG' => 'G',    # Glycine 
    'GGT' => 'G',    # Glycine 
); 

#按模板链转录
%table = (
    'TTT' => 'K',
    'TTG' => 'N',
    'TTC' => 'K',
    'TTA' => 'N',
    'TGT' => 'T',
    'TGG' => 'T',
    'TGC' => 'T',
    'TGA' => 'T',
    'TCT' => 'R',
    'TCG' => 'S',
    'TCC' => 'R',
    'TCA' => 'S',
    'TAT' => 'I',
    'TAG' => 'I',
    'TAC' => 'M',
    'TAA' => 'I',
    'GTT' => 'Q',
    'GTG' => 'H',
    'GTC' => 'Q',
    'GTA' => 'H',
    'GGT' => 'P',
    'GGG' => 'P',
    'GGC' => 'P',
    'GGA' => 'P',
    'GCT' => 'R',
    'GCG' => 'R',
    'GCC' => 'R',
    'GCA' => 'R',
    'GAT' => 'L',
    'GAG' => 'L',
    'GAC' => 'L',
    'GAA' => 'L',
    'CTT' => 'E',
    'CTG' => 'D',
    'CTC' => 'E',
    'CTA' => 'D',
    'CGT' => 'A',
    'CGG' => 'A',
    'CGC' => 'A',
    'CGA' => 'A',
    'CCT' => 'G',
    'CCG' => 'G',
    'CCC' => 'G',
    'CCA' => 'G',
    'CAT' => 'V',
    'CAG' => 'V',
    'CAC' => 'V',
    'CAA' => 'V',
    'ATT' => '_',
    'ATG' => 'Y',
    'ATC' => '_',
    'ATA' => 'Y',
    'AGT' => 'S',
    'AGG' => 'S',
    'AGC' => 'S',
    'AGA' => 'S',
    'ACT' => '_',
    'ACG' => 'C',
    'ACC' => 'W',
    'ACA' => 'C',
    'AAT' => 'L',
    'AAG' => 'F',
    'AAC' => 'L',
    'AAA' => 'F',
); 

Tag: none

Leave a new comment