[Bioperl-l] how to translate a codon to 3 letters aa code?

[Marc Logghe]

You could do something like this:

package MyCodonTable;
use Bio::Tools::CodonTable;
@ISA = Bio::Tools::CodonTable;
use strict;

sub translate
{
  my $self = shift;
  join '', map {$Bio::Tools::CodonTable::THREELETTERSYMBOLS{$_}} split '',
$self->SUPER::translate(@_);
}

my $s = 'ACGTTGCCA';
print MyCodonTable->new->translate($s),"\n";


This should print: ThrLeuPro
Regards,
Marc