Please i need help for writing java python script to transla

Solution

#!/bin/perl

use strict;

use warning;

local $/ = \'\ \ \";

my @frames = (1, 2, 3, -1, -2, -3); #six frames;

foreach my $frame (@frames) {

frame ($frame);

sub frame

{

my $f = shift;

open IN, $ARGV[0];

while(<IN>){

chomp; #each sequence should be in single line;

my $m + length ($-);

if(/^>(\\w+)/) {

print \">$1\".\"_\".\"frame\".\"$f\".\"\ \";

} elsif($f > 0){

my $frameseq = substr($_,$f-1,$m-$f+1);

print \"$frameseq\ \";

}elsif ($f <0){

my $comprevseq = reverse $_;

$coprevseq =~ tr /[A,T,C,G,a,t,c,g]/[T,A,G,C,t,a,g,c]/; #sequence reverse complement;

my $frameseq = substr ($comprevseq, abs($f)-1,$m-abs($f)+1);

peint \"$frameseq\ \";

}

}

}

close IN;

}