Difference between revisions of "YMS HW1"
imported>윤명서 (Created page with "<p>==Perl Code==</p> <p><span style="font-family:courier new,courier,monospace">#!/bin/perl -w</span></p> <p><span style="font-family:courier new,courier,monospace">use Bio::Se...") |
imported>윤명서 |
||
| Line 1: | Line 1: | ||
| − | < | + | <h1><strong>Perl Code</strong></h1> |
<p><span style="font-family:courier new,courier,monospace">#!/bin/perl -w</span></p> | <p><span style="font-family:courier new,courier,monospace">#!/bin/perl -w</span></p> | ||
| Line 20: | Line 20: | ||
print "\n";<br /> | print "\n";<br /> | ||
}<br /> | }<br /> | ||
| − | }< | + | }</p> |
| − | + | ||
| + | <hr /> | ||
| + | <h1><strong>Output</strong></h1> | ||
<p>$ perl 1.translation.pl <br /> | <p>$ perl 1.translation.pl <br /> | ||
Revision as of 15:38, 20 May 2016
Perl Code
#!/bin/perl -w
use Bio::Seq;
print "Trial for Homework \"Make a Perl program translating 'all' combinations of triple bases into amino acids\"\n";
@bases=("a","t","g","c");
foreach $first(@bases) {
foreach $second(@bases) {
foreach $third(@bases) {
$codon=$first.$second.$third;
$seq_codon = Bio::Seq->new(-seq => $codon,-alphabet => 'dna' );
$aa_letter = $seq_codon->translate;
print "$codon\t",$aa_letter->seq,"\t";
}
print "\n";
}
}
Output
$ perl 1.translation.pl
Trial for Homework "Make a Perl program translating 'all' combinations of triple bases into amino acids"
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
