Re^2: Multiple Regex's on a Big Sequence - Benchmark

[borisz]

in reply to Re: Multiple Regex's on a Big Sequence - Benchmark
in thread Multiple Regex's on a Big Sequence

That looks wrong to me, since therre is no need to constuct the $ra 100 times. Try it this way. Also try it with more patterns or do you search only for two?

...
my $t4 = new Benchmark;
my $ra = Regexp::Assemble->new();
$ra->add(@strings);
for (1..100) {
        while ( $sequence =~ /$ra/g) { my $val = pos($sequence) - 6; }
        }

[bernanke01]

Hey, I'll try that. However, I figured that if it were a timing test I'd have to compare 100 repeats of everything, and that included construction of the RA. Otherwise it's an apples-to-oranges comparison where one method had the chance to do up-front work and the others didn't. I'll post benchmarks on that in a few minutes though and we can see if it makes a difference.