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


Problems? Is your data what you think it is?
	PerlMonks

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

by borisz (Canon)

on Aug 17, 2006 at 10:56 UTC ( [id://567882]=note: print w/replies, xml )

Need Help??

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; }
        }
[download]

Boris

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

Replies are listed 'Best First'.
Re^3: Multiple Regex's on a Big Sequence - Benchmark by bernanke01 (Beadle) on Aug 18, 2006 at 02:01 UTC
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.	[reply]

In Section Seekers of Perl Wisdom

Domain Nodelet^?

www.com | www.net | www.org

Node Status^?

node history
Node Type: note [id://567882]
help

Chatterbox^?

How do I use this? • Last hour • Other CB clients

Other Users^?

Others lurking in the Monastery: (3)

As of 2024-04-19 21:19 GMT

Sections^?

Information^?

Find Nodes^?

Leftovers^?

Today I Learned

Voting Booth^?

No recent polls found