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