[Moscow.pm] Page generated in seconds

[Dmitry E. Oboukhov]

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
----------- следущая часть -----------
A non-text attachment was scrubbed...
Name: отсутствует
Type: application/pgp-signature
Size: 197 bytes
Desc: Digital signature
URL: <http://mail.pm.org/pipermail/moscow-pm/attachments/20090326/d975ff65/attachment-0001.bin>