Beefy Boxes and Bandwidth Generously Provided by pair Networks
laziness, impatience, and hubris

Re: Speed of Perl Regex Engine

by Jenda (Abbot)
on Nov 29, 2012 at 16:43 UTC ( #1006298=note: print w/replies, xml ) Need Help??

in reply to Speed of Perl Regex Engine

You said you build the regex and pass it to the program as a parameter ... how do you use it then?

my $regexp = @ARGV[1]; ... next if ($global =~ /$regexp/); ...
my $regexp = @ARGV[1]; ... next if ($global =~ /$regexp/o); ...
my $regexp = qr/@ARGV[1]/; ... next if ($global =~ $regexp); ...

The first version compiles the regexp each time you use it, the other two just once. For a longer regexp this may make a big difference.

Enoch was right!
Enjoy the last years of Rome.

Replies are listed 'Best First'.
Re^2: Speed of Perl Regex Engine
by runrig (Abbot) on Nov 29, 2012 at 19:30 UTC
    I believe in later versions of Perl (>= 5.6), this is no longer true. As long as $regexp doesn't change, /$regexp/ isn't compiled again, making "/o" (mostly) obsolete.

Log In?

What's my password?
Create A New User
Node Status?
node history
Node Type: note [id://1006298]
[Discipulus]: i still suspect english has some logical 'curvature/ crookedness' that has and will have a big impact over programming
[Discipulus]: if you refere to gestures ++choroba
Discipulus still has problem with 'until' beyond simplest cases
[choroba]: ;-)
[Discipulus]: and larry studied natural languages too
[choroba]: Czechs have problems with unless
[Lady_Aleena]: Are you all sick of me discussing my reorganization?
[Discipulus]: Untillian Headache or about the semantic of until

How do I use this? | Other CB clients
Other Users?
Others wandering the Monastery: (8)
As of 2017-05-27 20:23 GMT
Find Nodes?
    Voting Booth?