 |
Как отследить время выполнения различных участков Perl программы ? |
[обсудить]
|
| | perldoc Devel::DProf
Запускаем программу как perl -d:DProf prog.pl
Затем смотрим в сгенерированный файл tmon.out, или используем специальную
программу для его разбора, например dprofpp -T
|
| |
 |
|
|
Как протестировать производительность (скорость выполнения) perl скрипта. |
[обсудить]
|
| | use Benchmark;
$string = "The bitter end.\n";
$code{"chomp"} = 'chomp $string';
$code{"regex"} = '$string =~ s/\n$//';
timethese(10_000_000, \%code);
или timethese($count, {
'test1' => sub { foreach $cur_val (@arr){....}},
'test2' => sub { ....много кода... },
});
|
| |
|
|
