examples/Code/07-reading-frames.pl

#!/usr/bin/perl -w
use strict;

# use module DNA2protein to implement reading frames

use DNA2protein;

while ( my $DNA = <> ) {
        chomp($DNA);

        foreach my $offset ( 0 .. 2 ) {
                print DNA2protein( $DNA, $offset ), "\n";
                print DNA2protein( revcom($DNA), $offset ), "\n";
        }
}
1	#!/usr/bin/perl -w
2	use strict;
3
4	# use module DNA2protein to implement reading frames
5
6	use DNA2protein;
7
8	while ( my $DNA = <> ) {
9	chomp($DNA);
10
11	foreach my $offset ( 0 .. 2 ) {
12	print DNA2protein( $DNA, $offset ), "\n";
13	print DNA2protein( revcom($DNA), $offset ), "\n";
14	}
15	}