in reply to Re: Re: Re: Benchmark Wrapper
in thread Benchmark Wrapper
Update: A cheap example to help qball with his questions:use Benchmark; $t0 = new Benchmark; # ... your code here ... $t1 = new Benchmark; $td = timediff($t1, $t0); print "the code took:",timestr($td),"\n";
use strict; use Benchmark; print "Starting..."; my $t0 = new Benchmark; # ... your code here ... sleep(3); my $t1 = new Benchmark; my $td = timediff($t1, $t0); print 'the code took:',timestr($td),"\n"; my $sec = timestr($td)+0; print "that's ",timestr($td)+0," seconds\n"; my $min = int($sec/60); $sec = $sec - $min*60; printf ("also known as %d:%02d", $min, $sec);
--
I'd like to be able to assign to an luser
|
|---|