A function to figure out the reverse complement of a DNA sequence
sub revdnacomp { my $dna = @_; my $revcomp = reverse($dna); $revcomp =~ tr/ACGTacgt/TGCAtgca/; return $revcomp; }
Back to
Cool Uses for Perl
sub revdnacomp { my $dna = @_; my $revcomp = reverse($dna); $revcomp =~ tr/ACGTacgt/TGCAtgca/; return $revcomp; }