Как узнать время исполнения скрипта ?

Как узнать точное время исполнения скрипта на сервере (CGI)?
спасибо, лоценю

Alice писал:

Как узнать точное время, за которое сервер исполненил скрипт (CGI)? спасибо, лоценю

Alice писал:

Как узнать точное время исполнения скрипта на сервере (CGI)? спасибо, лоценю

если на скриптовом языке - легче всего вставкой в начало и конец чего-то вроде microtime() и записью в лог скажем с pid данного процесса, потом сравнивать
если бинарный cgi - аналогично, но с заменой на свой враппер с execXX()

Можно так например. За точность не отвечаю. Просто как вариант.

Код:

#Begin the program use CGI::Carp "fatalsToBrowser"; use CGI qw(:standard); use Benchmark; $StartTime = new Benchmark; print "Content-type: text/html\n\n"; ====== сам скрипт ====== my $EndTime = new Benchmark; my $extime = Benchmark::timediff($EndTime, $StartTime); my $stats = Benchmark::timestr($extime); $stats =~ s/\(.+?\)//i; $extstats = $&; $extstats =~ s/=.+?CPU//i; $extstats = $&; $extstats =~ s/=//; $extstats = lc($extstats); $stats = $stats . " -" . $extstats . " secs"; $stats = qq~Execution Stats: $stats~; print $stats;

Вот как это сделать на ПХП... может поможет... в Перле я не силен

<?php

$starttime = microtime();
// please your script here//






// end of your script //
list($microsec, $sec) = explode(" ",$starttime);
$starttime = (float)$microsec + (float)$sec;
list($microsec, $sec) = explode(" ",microtime());
$endtime = (float)$microsec + (float)$sec;
$exectime = floor(($endtime - $starttime)*1000);
echo "execution time {$exectime} ms | "

?>

всем спасибо, оценено