in reply to simple string comparison for efficiency
Tell us about the larger picture. There is likely to be room for improving whatever you are doing at present, or at least for us to target solutions to whatever the bigger problem is. Most gains in performance are not obtained by micro-optimizations such as you are asking for. Some tricks that will give huge performance gains in some situations will cripple the code in other situations.
That said, you can build masks then xor the strings to give something like the fast match you are looking for where the strings to be matched are fairly long. Consider:
use strict; use warnings; my $strA = 'ATGNCNC'; my $strB = 'ATGACNN'; my $strC = 'TTGACNN'; print $strA, (match ($strA, $strB) ? ' eq' : ' ne'), " $strB\n"; print $strA, (match ($strA, $strC) ? ' eq' : ' ne'), " $strC\n"; sub match { my ($mask1, $mask2) = @_; my ($str1, $str2) = @_; $mask1 =~ tr/NATGC/0\xFF/; $mask2 =~ tr/NATGC/0\xFF/; $mask1 &= $mask2; $str1 ^= $str2; $str1 &= $mask1; return $str1 !~ /[^\x00]/; }
Prints:
ATGNCNC eq ATGACNN ATGNCNC ne TTGACNN
If you can cache the masks (say you were matching all strings against all others for example) then you get a greater gain.
True laziness is hard work
|
---|
Replies are listed 'Best First'. | |
---|---|
Re^2: simple string comparison for efficiency
by CaptainF (Initiate) on May 29, 2009 at 00:16 UTC | |
by GrandFather (Saint) on May 29, 2009 at 01:15 UTC |
In Section
Seekers of Perl Wisdom