sub revcompl { return map { (my $rev = reverse $_) =~ tr/ACGTacgt/TGCAtgca/; $rev + } @_ }
Makeshifts last the longest.
In reply to Re^2: DNA Reverse Complement
by Aristotle
in thread DNA Reverse Complement
by mousey
| For: | Use: | ||
| & | & | ||
| < | < | ||
| > | > | ||
| [ | [ | ||
| ] | ] |