use strict; use Time::HiRes qw ( gettimeofday ); ...[some code] my $start = 0; ...[some code] print "Starting process 1... "; $start = Time::HiRes::time(); ...[process code] print "(" . (Time::HiRes::time() - $start) . " seconds)\n"; print "Starting process 2... "; $start = Time::HiRes::time(); ...[process code] print "(" . (Time::HiRes::time() - $start) . " seconds)\n";
In reply to Re: Perl code timing
by ChrisR
in thread Perl code timing
by mcogan1966
| For: | Use: | ||
| & | & | ||
| < | < | ||
| > | > | ||
| [ | [ | ||
| ] | ] |