|
ru.perl
- RU.PERL ----------------------------------------------------------------------
From : Valentin Nechayev 2:5020/400 27 Oct 2002 19:33:54
To : Ivan Frolcov
Subject : Re: elapsed time
--------------------------------------------------------------------------------
>>> Ivan Frolcov wrote:
AC>> use Time::HiRes;
IF> Ой ли? Боюсь, что это вообще на писюке с этим модулем сделать
IF> затруднительно...
IF> use Time::HiRes qw(gettimeofday usleep);
IF> my($s1,$ms1);
IF> my($s,$ms) = gettimeofday;
IF> while(1){
IF> ($s1,$ms1) = gettimeofday();
IF> last if $ms1 != $ms;
IF> }
IF> print "$s $ms\n$s1 $ms1";
IF> имеем
IF> C:\work>perl qq1.pl
IF> 1034598114 340000
IF> 1034598114 400000
Hю ню... Ввел точь-в-точь приведенный код, получил:
$ perl hir.pl; echo
1035732447 595484
1035732447 595502
$ perl hir.pl; echo
1035732448 267409
1035732448 267428
$ perl hir.pl; echo
1035732448 875058
1035732448 875077
$ uname -mrs
FreeBSD 4.7-RELEASE i386
Я согласен, что проблемы Linux могут сильно помешать получению
нужных данных, но собственно железо PC, несмотря на весь изврат счета
времени в нем - не мешает узнавать время хоть до микросекунды.
А вот что тут точно надо учесть - что абсолютное время - никак не то,
что должно показывать время выполнения функции.
Для этого нужны другие таймеры. AFAIR, они в штатных поставках
линуксов и *BSD сейчас отсутствуют.
IF> А вообще-то разумнее погонять ее часик и посмотреть, сколько раз она
IF> отработает. Получится, что и обычного time достаточно.
В общем да. Hо тогда время будет меньше, из-за попадания в кэш процессора
большой части данных и кода.
/netch
--- ifmail v.2.15dev5
* Origin: Dark side of coredump (2:5020/400)
Вернуться к списку тем, сортированных по: возрастание даты уменьшение даты тема автор
|
