Всем огромное спасибо и отличного рабочго дня :)
Вы лучшие! > 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 -- С уважением, Dvhillard mailto:[email protected] -- Moscow.pm mailing list [email protected] | http://moscow.pm.org
