Beefy Boxes and Bandwidth Generously Provided by pair Networks
"be consistent"

Benchmarking Your Code

by turnstep (Parson)
on Apr 24, 2000 at 22:05 UTC ( #8745=perltutorial: print w/replies, xml ) Need Help??

Help for this page

Select Code to Download

  1. or download this
    use Benchmark;
  2. or download this
    $x = timeit($count, 'CODE');
    ## CODE is run $count times
    ## $x becomes a Benchmark object which contains the result
    print "Result from $count loops: ";
    print timestr($x), "\n";
  3. or download this
    $x = timethis($count, 'CODE');
    ## or even just:
    timethis($count, 'CODE');
  4. or download this
    @x = timethese($count, { 'one','CODE1', 'two','CODE2' });
  5. or download this
    timethese($count, {
      'one'   => 'CODE1',
      'two'   => 'CODE2',
      'pizza' => 'CODE_X', ## etc....
  6. or download this
    $x = timeit($count, 'CODE1');
    $y = timeit($count, 'CODE2');
    $mydiff = timediff($x, $y);
  7. or download this
    use Benchmark;
  8. or download this
    Benchmark: timing 10 iterations of Sort One, Sort Two...
      Sort One:  0 secs ( 0.33 usr  0.00 sys =  0.33 cpu)
                (warning: too few iterations for a reliable count)
      Sort Two:  1 secs ( 0.48 usr  0.01 sys =  0.49 cpu)
  9. or download this
    Benchmark: timing 150 iterations of Sort One, Sort Two...
      Sort One:  5 secs ( 4.89 usr  0.01 sys =  4.90 cpu)
      Sort Two:  8 secs ( 7.12 usr  0.01 sys =  7.13 cpu)
  10. or download this
    $count = shift || die "Need a count!\n";

Log In?

What's my password?
Create A New User
Node Status?
node history
Node Type: perltutorial [id://8745]
[Corion]: thezip: The Canary Islands - they have a constant climate
[Corion]: Maybe a bit too many old people, but for some do-nothing vacation for R&R exactly the right thing ;)=
[thezip]: That's awesome. I bet you feel totally rejuvenated and ready for the next thing.

How do I use this? | Other CB clients
Other Users?
Others taking refuge in the Monastery: (9)
As of 2017-02-23 17:07 GMT
Find Nodes?
    Voting Booth?
    Before electricity was invented, what was the Electric Eel called?

    Results (349 votes). Check out past polls.