Beefy Boxes and Bandwidth Generously Provided by pair Networks
more useful options
 
PerlMonks  

Re: Re^2: Never (qr//)

by grantm (Parson)
on May 14, 2003 at 09:46 UTC ( [id://258014]=note: print w/replies, xml ) Need Help??

Help for this page

Select Code to Download


  1. or download this
    #!/usr/local/bin/perl -w
    
    ...
    sub testsubqr2 { foreach (@words) { $count++ if($_ =~ $qr);          }
    + }
    
    sub testsubqro { foreach (@words) { $count++ if(/$qr/o);             }
    + }
    
  2. or download this
    /^$alpha$alnum+$/ : 20 wallclock secs (20.41 usr +  0.00 sys = 20.41 C
    +PU) @  4.90/s (n=100)
    /^$alpha$alnum+$/o:  9 wallclock secs ( 8.34 usr +  0.00 sys =  8.34 C
    +PU) @ 11.99/s (n=100)
    /$qr/             :  9 wallclock secs ( 9.59 usr +  0.00 sys =  9.59 C
    +PU) @ 10.43/s (n=100)
    $qr               : 10 wallclock secs ( 9.94 usr +  0.00 sys =  9.94 C
    +PU) @ 10.06/s (n=100)
    /$qr/o            :  9 wallclock secs ( 8.34 usr +  0.01 sys =  8.35 C
    +PU) @ 11.98/s (n=100)
    

Log In?
Username:
Password:

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

How do I use this?Last hourOther CB clients
Other Users?
Others surveying the Monastery: (6)
As of 2024-03-28 10:27 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    No recent polls found