Скорость скрипта на Perl

[Dialer]

Как измерять скорость работы скрипта?
То есть, чтобы после обработке скрипта на странице выводилось что-то типа: "время обработки скрипта: 0.0049320423 сек."

[Gike]

primerno tak:

$t1=time;
$scr="иследуемый скрипт";
system($scr);
$t2=time;
$dt=$t2-$t1;
print "время работы : $dt секунд";

[Dialer]

Этот вариант показывает только секунды, а мне нужно чтоб показывал доли секунд (например 0.0049320423 сек).

[Stasik]

я не знаю есть ли в Perl`e microtime?

[Dialer]

нет там такой функции Но сделать это однозначно можно, так как я на каком-то сайте видел, что Perl-скрипт выдавал такую инфу.

[Gike]

a esli tak:

$t1=time;
$scr="иследуемый скрипт";
for($i=0;$i<999999999;$i++){
system($scr);}
$t2=time;
$dt=$t2-$t1;
$dt=$dt/$i;
print "время работы : $dt секунд";

[Dialer]

не..
мне тут на одном форуме подсказали более простой вариант -- просто писать в конце кода
print scalar times;
Кроме того, есть ещё несколько способов. Кому интересно читайте тут (http://www.xpoint.ru/cgi-bin/forum.c...d=16365#unread)