|
ru.perl
- RU.PERL ----------------------------------------------------------------------
From : Ivan Frolcov 2:5020/175.2 14 Oct 2002 16:25:55
To : Artem Chuprina
Subject : Re: elapsed time
--------------------------------------------------------------------------------
RK>> Задача: есть функция func(). Hадо померять время ее выполнения в
RK>> милисекундах.
RK>> Как это сделать?
AC> use Time::HiRes;
Ой ли? Боюсь, что это вообще на писюке с этим модулем сделать
затруднительно...
use Time::HiRes qw(gettimeofday usleep);
my($s1,$ms1);
my($s,$ms) = gettimeofday;
while(1){
($s1,$ms1) = gettimeofday();
last if $ms1 != $ms;
}
print "$s $ms\n$s1 $ms1";
имеем
C:\work>perl qq1.pl
1034598114 340000
1034598114 400000
Дискретность, как видно, 0.6 секунды. Это на два порядка грубее, чем
затребовано.
C:\work>perl -v
This is perl, v5.6.1 built for MSWin32-x86-multi-thread
(with 1 registered patch, see perl -V for more detail)
Copyright 1987-2001, Larry Wall
Binary build 629 provided by ActiveState Tool Corp. http://www.ActiveState.com
Built 12:27:04 Aug 20 2001
А вообще-то разумнее погонять ее часик и посмотреть, сколько раз она
отработает. Получится, что и обычного time достаточно.
--- ifmail v.2.15dev5
* Origin: FidoNet Online - http://www.fido-online.com (2:5020/175.2)
Вернуться к списку тем, сортированных по: возрастание даты уменьшение даты тема автор
|
