On 12:05 Thu 26 Mar , [email protected] wrote: dgc> Всем спасибо за ответы.
dgc> Вот я написал:
dgc> use Time::HiRes qw( gettimeofday tv_interval);
dgc> $t0 = [gettimeofday];
dgc> while ($i<100){$i++}
dgc> $elapsed = tv_interval ( $t0, [gettimeofday]);
dgc> print $elapsed;
dgc> Ответ выводит: 1.5e-005
dgc> А как из него сделать человеческий вид?
а у меня проще
$t0 = Time::HiRes::time;
while ...
$t1 = Time::HiRes::time;
$elapsed=$t1-$t0;
printf "%1.2f", $elapsed;
там очень удобно что ейная time возвращает обычные секунды но в
формате с плавающей точкой. и разница уже в долях секунд получается :)
можно импортировать time используя директиву
use Time::HiRes qw(time);
тогда будет проще:
use Time::HiRes qw(time);
$t0 = time;
...
$t1 = time;
printf "%1.2f", $t1-$t0;
>>> Как засечь время вначале скрипта, и в конце и получить результат
>>> в миллисеккундах?
>> use Time::HiRes;
>> $t0 = [gettimeofday];
>> . . .
>> $elapsed = tv_interval ( $t0, [gettimeofday]);
>> Другие примеры можно посмотреть в документации к этому модулю:
>> http://search.cpan.org/dist/Time-HiRes/HiRes.pm
>>> Подскажите, пожалуйста, как правильно сделать вывод в конце
>>> страницы, вида: Page generated in X.xx seconds
>> Подсказываю: это не нужно выводить на страницу :-) Ну разве что в
>> комментарий или для отладки.
--
... mpd is off
. ''`. Dmitry E. Oboukhov
: :’ : email: [email protected] jabber://[email protected]
`. `~’ GPGKey: 1024D / F8E26537 2006-11-21
`- 1B23 D4F8 8EC0 D902 0555 E438 AB8C 00CF F8E2 6537
signature.asc
Description: Digital signature
-- Moscow.pm mailing list [email protected] | http://moscow.pm.org
