BuKyung Make a Perl program translating 'all' combinations of triple bases into amino acids

Back to Baik BuKyung
 

---

Source code:

---

#!/usr/bin/perl

 use strict;

 use warnings;

 

 

 

 my %translation=("aaa"=>"K", "aat"=>"N", "aag"=>"K", "aac"=>"N",   
 "ata"=>"I", "att"=>"I", "atg"=>"M", "atc"=>"I",
 "aga"=>"R", "agt"=>"S", "agg"=>"R", "agc"=>"S",
 "aca"=>"T", "act"=>"T", "acg"=>"T", "acc"=>"T",
 "taa"=>"*", "tat"=>"Y", "tag"=>"*", "tac"=>"Y",
 "tta"=>"L", "ttt"=>"F", "ttg"=>"L", "ttc"=>"F",
 "tga"=>"*", "tgt"=>"C", "tgg"=>"W", "tgc"=>"C",
 "tca"=>"S", "tct"=>"S", "tcg"=>"S", "tcc"=>"S",
 "gaa"=>"E", "gat"=>"D", "gag"=>"E", "gac"=>"D",
 "gta"=>"V", "gtt"=>"V", "gtg"=>"V", "gtc"=>"V",
 "gga"=>"G", "ggt"=>"G", "ggg"=>"G", "ggc"=>"G",
 "gca"=>"A", "gct"=>"A", "gcg"=>"A", "gcc"=>"A",
 "caa"=>"Q", "cat"=>"H", "cag"=>"Q", "cac"=>"H",
 "cta"=>"L", "ctt"=>"L", "ctg"=>"L", "ctc"=>"L",
 "cga"=>"R", "cgt"=>"R", "cgg"=>"R", "cgc"=>"R",

 "cca"=>"P", "cct"=>"P", "ccg"=>"P", "ccc"=>"P"  );

 

foreach my $key (sort keys %translation) {
    print $key, " : ", $translation{$key}, "   ";

}

---

 

---

Result