Wie kann ich eine Schleifeniteration in Perl zeitgesteuert verarbeiten?

Question

Ich habe eine Schleife, die wie folgt aussieht:

for (0..10000) { 
    $my_array[$_] = `some external program`; 
} 

Und ich will Zeit, wie lange jede Iteration dauert und wie lange die ganze furshlugginer Sache nimmt.

Was ist der beste Weg, dies in Perl zu tun?

Answer 1

use Time::HiRes 'gettimeofday', 'tv_interval'; 

my $start = [ gettimeofday() ]; 

for (0..10000) { 
    my $iteration_start = [ gettimeofday() ]; 
    $my_array[$_] = `some external program`; 
    $elapsed_secs[$_] = tv_interval($iteration_start); 
} 

my $total_secs = tv_interval($start); 

gettimeofday ist möglicherweise nicht auf allen Plattformen verfügbar. Die zurückgegebenen Sekunden sind eine Gleitkommazahl.

Answer 2

Verwendung Benchmark aus den Kernmodulen: http://perldoc.perl.org/Benchmark.html

Im Grunde so etwas wie diese:

use Benchmark; 
$t0 = Benchmark->new; 
$my_array[$_] = `some external program`; 
$t1 = Benchmark->new; 
$td = timediff($t1, $t0); 
print "the code took:",timestr($td),"\n"; 

und mehr Iterationen zu testen versuchen:

$t = timeit(10000, '... code...'); 
print "10000 loops of code took:", timestr($t), "\n";