[Moscow.pm] Page generated in seconds
dvhillard на gmail.com
dvhillard на gmail.com
Чт Мар 26 03:20:53 PDT 2009
Всем огромное спасибо и отличного рабочго дня :)
Вы лучшие!
> On 12:05 Thu 26 Mar , dvhillard на gmail.com 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: unera на debian.org jabber://UNera@uvw.ru
> `. `~’ GPGKey: 1024D / F8E26537 2006-11-21
> `- 1B23 D4F8 8EC0 D902 0555 E438 AB8C 00CF F8E2 6537
--
С уважением,
Dvhillard mailto:dvhillard на gmail.com
Подробная информация о списке рассылки Moscow-pm