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; }
|
---|
Replies are listed 'Best First'. | |
---|---|
Re: DNA Reverse Complement
by jkahn (Friar) on Sep 14, 2002 at 05:12 UTC | |
by Aristotle (Chancellor) on Sep 14, 2002 at 05:36 UTC | |
by Anonymous Monk on Aug 20, 2009 at 17:19 UTC | |
by Your Mother (Archbishop) on Aug 20, 2009 at 17:57 UTC |
Back to
Cool Uses for Perl