Help for this page

Select Code to Download


  1. or download this
    #!/usr/bin/perl -w
    
    ...
    
    timethese (100000, { hash => 'by_hash',
              var => 'by_var'});
    
  2. or download this
    [13:20:12 jhorner@gateway lib]$ ./test1.pl 
    Benchmark: timing 100000 iterations of hash, var...
          hash:  5 wallclock secs ( 4.57 usr +  0.00 sys =  4.57 CPU) @ 21
    +881.84/s (n=100000)
           var:  4 wallclock secs ( 3.74 usr +  0.00 sys =  3.74 CPU) @ 26
    +737.97/s (n=100000)
    [13:20:24 jhorner@gateway lib]$