Difference between revisions of "BuKyung Make a Perl program translating 'all' combinations of triple bases into amino acids"
imported>Baik BuKyung (Created page with "<p><span style="font-size:24px">Source code:</span></p> <hr /> <div>#!/usr/bin/perl<br /> use strict;<br /> use warnings;</div> <div> </div> <div> </div>...") |
imported>Baik BuKyung m (moved Translation to BuKyung Make a Perl program translating 'all' combinations of triple bases into amino acids) |
||
(One intermediate revision by the same user not shown) | |||
Line 1: | Line 1: | ||
+ | <p>Back to [[Baik BuKyung]]<br /> | ||
+ | </p> | ||
+ | |||
+ | <hr /> | ||
<p><span style="font-size:24px">Source code:</span></p> | <p><span style="font-size:24px">Source code:</span></p> | ||
Latest revision as of 17:40, 12 June 2016
Back to Baik BuKyung
Source code:
use strict;
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",
foreach my $key (sort keys %translation) {
print $key, " : ", $translation{$key}, " ";
Result