Beefy Boxes and Bandwidth Generously Provided by pair Networks
Just another Perl shrine

Re: Re: Naughty match variables in CPAN?

by jsprat (Curate)
on Jul 22, 2003 at 09:39 UTC ( #276667=note: print w/replies, xml ) Need Help??

in reply to Re: Naughty match variables in CPAN?
in thread Naughty match variables in CPAN?

How big is the impact? Better than 10x in a simple test (5.8.0 on Win2K).

Just for fun, here's the benchmark. It took some guesswork to get it to run the subs in the right order - clean first, then use English;, then naughty. If anyone uncomments the print statements to test the order, use 1 as an argument so you don't have to wait forever. Here are the results:

use strict; use Benchmark qw/cmpthese/; my $time = shift || -5; my $text = 'x' x 10_000; sub clean { # print "clean"; $text =~ m/^x/; } sub make_dirty { # print "md"; eval "use English;"; } sub naughty { # print "naughty"; $text =~ m/^x/; } my %hash = ( clean => 'clean', naughtify => 'make_dirty', sawamp => 'naughty', ); cmpthese ( $time, { clean => 'clean', naughtify => 'make_dirty', sawamp => 'naughty', }); __END__ results: C:\s\pldir> -5 Rate naughtify sawamp clean naughtify 433/s -- -98% -100% sawamp 24153/s 5481% -- -92% clean 300603/s 69366% 1145% --

Someone with more benchmark-fu may correct me on this, but it looks right to me.

Log In?

What's my password?
Create A New User
Node Status?
node history
Node Type: note [id://276667]
and the web crawler heard nothing...

How do I use this? | Other CB clients
Other Users?
Others chilling in the Monastery: (7)
As of 2021-01-17 12:50 GMT
Find Nodes?
    Voting Booth?