View source for 1) Translating 'all' combinations of triple bases into amino acids

From Biolecture.org

← 1) Translating 'all' combinations of triple bases into amino acids

You do not have permission to edit this page, for the following reason:

---

You can view and copy the source of this page.

<p><u><strong><span style="font-family:tahoma,geneva,sans-serif"><span style="font-size:14px">Run it on perl. You can enter booth triplet nucleotides and whole sequence, this program will tranlate it to aminoacids:&nbsp;</span></span></strong></u></p> <p><span style="font-family:tahoma,geneva,sans-serif"><span style="font-size:14px">#!usr/bin/perl/<br /> use strict;<br /> use warnings;</span></span></p> <p><span style="font-family:tahoma,geneva,sans-serif"><span style="font-size:14px">&nbsp;my <strong>%anticodon</strong>; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp;## creating hash to assign each combination to aminoacid<br /> &nbsp;while (&lt;DATA&gt;){ &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp;##reading DATA file at the end of the script&nbsp;<br /> &nbsp;chomp($_); &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp;##chomping new lines in text data<br /> &nbsp;my <strong>@codons</strong> = split &quot; &quot;, $_; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp;## break apart by &quot; &quot; spaces into arrays in each line&nbsp;<br /> &nbsp;my<strong> $aminoacid</strong> = shift @codons; &nbsp; &nbsp; &nbsp; &nbsp; ## shift takes out first item from the list @codons<br /> &nbsp;foreach my $code (@codons){ &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp;##each&nbsp;left codons in the list<br /> &nbsp; <strong>$anticodon{$code}</strong> = <strong>$aminoacid</strong>; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp;## every codon in the line will be coupled with above-shifted-aminoacid&nbsp;<br /> }}<br /> &nbsp; print &quot;Enter triple bases, we will find aminoacids: \n &quot;; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; ##printing<br /> &nbsp; my <strong>$triplet = &lt;STDIN&gt;</strong>; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp;##reads user entered line<br /> &nbsp; chomp $triplet; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp;<br /> &nbsp; $triplet = uc $triplet; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp;##change all entered string into uppercase<br /> &nbsp; my $aaseq;&nbsp;<br /> &nbsp; <strong>while ($triplet =~ s/(...)//){ &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp;##if there is sequence, will take first three bases, then second ...</strong><br /> &nbsp;<strong> $aaseq .= $anticodon{$1}; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; ## finding from hash amino acid corresponding to triple bases and storing it in another scalar variable</strong><br /> }</span></span></p> <p><span style="font-family:tahoma,geneva,sans-serif"><span style="font-size:14px">&nbsp;print &quot;Corresponding aminoacid sequence is: $aaseq\n&quot;;</span></span></p> <p><span style="font-family:tahoma,geneva,sans-serif"><span style="font-size:14px">__DATA__<br /> Ala GCU GCC GCA GCG<br /> Arg CGU CGC GCA CGG AGA AGG<br /> Asn AAU AAC<br /> Asp GAU GAC<br /> Cys UGU UGC<br /> Gln CAA CAG<br /> Glu GAA GAG<br /> Gly GGU GGC GGA GGG<br /> His CAU CAC&nbsp;<br /> Ile AUU AUC AUA<br /> Leu UUA UUG CUU CUC CUA CUG<br /> Lys AAA AAG<br /> Met AUG<br /> Phe UUU UUC<br /> Pro CCU CCC CCA CCG<br /> Ser UCU UCC UCA UCG AGU AGC<br /> Thr ACU ACC ACA ACG<br /> Trp UGG<br /> Tyr UAU UAC<br /> Val GUU GUC GUA GUG<br /> Stop UAA UAG UGA</span></span></p>

Return to 1) Translating 'all' combinations of triple bases into amino acids.