Re^2: DNA Reverse Complement

sub revcompl {
    return map { (my $rev = reverse $_) =~ tr/ACGTacgt/TGCAtgca/; $rev
+ } @_
}
[download]

Makeshifts last the longest.

Comment on Re^2: DNA Reverse Complement Download Code

Replies are listed 'Best First'.
Re^3: DNA Reverse Complement by Anonymous Monk on Aug 20, 2009 at 17:19 UTC
The above sub does not work	[reply]
Re^4: DNA Reverse Complement by Your Mother (Archbishop) on Aug 20, 2009 at 17:57 UTC
Of course it does. I'm guessing you called it in scalar context and got the count of the transform; e.g., 1. `print revcompl("CGTAGTC"), $/; # GACTACG print scalar revcompl("CGTAGTC"), $/; # 1` [download] There was just a post on this issue this morning: Mini-Tutorial: Scalar vs List Assignment Operator.	[reply] [d/l]