- or download this
use Benchmark;
- 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";
- or download this
$x = timethis($count, 'CODE');
## or even just:
timethis($count, 'CODE');
- or download this
@x = timethese($count, { 'one','CODE1', 'two','CODE2' });
- or download this
timethese($count, {
'one' => 'CODE1',
'two' => 'CODE2',
'pizza' => 'CODE_X', ## etc....
});
- or download this
$x = timeit($count, 'CODE1');
$y = timeit($count, 'CODE2');
$mydiff = timediff($x, $y);
- or download this
#!/usr/bin/perl
use Benchmark;
...
exit;
- 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)
- 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)
- or download this
$count = shift || die "Need a count!\n";