diff Perl/translate.pl @ 3:e42d30da7a74 draft

Uploaded

--- /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);