Mercurial > repos > dereeper > pangenome_explorer
diff Perl/translate.pl @ 3:e42d30da7a74 draft
Uploaded
author | dereeper |
---|---|
date | Thu, 30 May 2024 11:52:25 +0000 |
parents | |
children |
line wrap: on
line diff
--- /dev/null Thu Jan 01 00:00:00 1970 +0000 +++ b/Perl/translate.pl Thu May 30 11:52:25 2024 +0000 @@ -0,0 +1,27 @@ +#!/usr/bin/perl + +use strict; + +use File::Basename; +my $dirname = dirname(__FILE__); + +my $out = $ARGV[1]; +my $in = $ARGV[0]; +open(F,$in); +open(O,">$out"); +while(<F>){ + if (/>(.*)/){ + print O $_; + } + else{ + my $dna = $_; + my $DNA = uc($dna); + $DNA =~s/\n//g;$DNA =~s/\r//g; + system("perl $dirname/DNA_Transcription_Translation.pl $DNA >>translate.log 2>&1"); + my $result = `cat result.txt`; + chop($result); + print O $result."\n"; + } +} +close(F); +close(O);