[Moscow.pm] Page generated in seconds

[dvhillard на gmail.com]

Всем огромное спасибо и отличного рабочго дня :)

Вы лучшие!

> 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