Select Code to Download

use warnings;
use strict;
...
exit;

# define any subroutines here ########################################
+#

ACTG
catgataaatttccc
not dna

tgac

c:\@Work\Perl\monks\undergradguy>perl rev_comp_2.pl dna.dat
dna -> reverse complement
...

dna -> reverse complement
'tgac' -> 'gtca'

# Unstrict.pm                                               22dec18waw

...
sub func { return $string; }

1;

c:\@Work\Perl\monks\undergradguy>perl -Mstrict -le
"use Unstrict;
...
"
Unquoted string "bareword" may clash with future reserved word at Unst
+rict.pm line 7.
bareword