YMS HW1

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