Beefy Boxes and Bandwidth Generously Provided by pair Networks
P is for Practical
 
PerlMonks  

Re^6: The Most Essential Perl Development Tools Today

by topher (Scribe)
on Jan 08, 2013 at 06:20 UTC ( #1012165=note: print w/ replies, xml ) Need Help??

Help for this page

Select Code to Download


  1. or download this
    [0] Perl> sub a(){ 1 }; sub b(){ return 1; };; [0] Perl> cmpthese -1,{
    + a=>q[ a() for 1 .. 1000;], b=>q[b() for 1 .. 1 +000;] };; Rate b a b
    + 4668/s -- -80% a 23195/s 397% --
    [download]
    
  2. or download this
    $ perl -E 'use Benchmark qw(timethese cmpthese); sub a() { 1 }; sub b(
    +) { return 1 }; cmpthese -1,{ a=>q[ a() for 1 .. 1000;], b=>q[b() for
    + 1 .. 1000;] };'
         Rate    b    a
    b  2694/s   -- -88%
    ...
        Rate   b   a
    b 2595/s  -- -8%
    a 2823/s  9%  --
    

Log In?
Username:
Password:

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

How do I use this? | Other CB clients
Other Users?
Others avoiding work at the Monastery: (8)
As of 2014-08-23 02:15 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    The best computer themed movie is:











    Results (171 votes), past polls