sub translate {<\/div>
<\/div>
my ( $filename, $fullpath ) = @_;<\/div>
<\/div>
my $seqI = Bio::SeqIO->new( -file => $fullpath );<\/div>
<\/div>
my $tempfile = File::Temp->new( SUFFIX => \'.fasta\' )->filename;<\/div>
my $seqO = Bio::SeqIO->new(<\/div>
-file => ">$tempfile",<\/div>
-format => \'fasta\'<\/div>
);<\/div>
<\/div>
my $outcome = 0;<\/div>
while ( my $seq = $seqI->next_seq ) {<\/div>
if ( $seq->alphabet eq \'dna\' ) {<\/div>
$seq = $seq->translate;<\/div>
$outcome = 1;<\/div>
}<\/div>
$seqO->write_seq($seq);<\/div>
}<\/div>
<\/div>
$_->close for ( $seqI, $seqO );<\/div>
<\/div>
# $outcome will be true only if seq is dna and move succeded.<\/div>
$outcome *= move( $tempfile, $fullpath );<\/div>
<\/div>
notify( $outcome, $filename ); # Preach it!<\/div>
}<\/div>
<\/div>
sub notify {<\/div>
my ( $success, $file ) = @_;<\/div>
my $message;<\/div>
<\/div>
if ( $success ) { $message = "Translated $file" }<\/div>
else { $message = "$file not translated" }<\/div>
<\/div>
Gtk2::Notify->new( \'Attention\', $message )->show;<\/div>
}<\/div><\/pre><\/div>\n \n <\/div>\n\n