3.9. Таймеры высокого разрешения 107

Sdatestr = UnixDate($date, %а %b %е %Н %М %S %г %Y ), # скалярный контекст print Date Manip gives $datestr\n , Date:;Manip gives: Thu Jan 18 03:45:50 GMT 1973

t> Смотри также-

Оппсаине функции gmtime и localtime в perlfunc{l); perllocale{i); тап-стра]И[це strftime(3) вашей системы; документация но модулям POSIX и Date::Manip с CPAN.

3.9. Таймеры высокого разрешения

Проблема

Функция time возвращает время с точностью до секу]1ды. Требуется измерить время с более высокой точностью.

Решение

Иногда эта проблема неразрешима. Если на вашем компьютере Perl поддерживает функцию syscall, а в системе имеется функция типа gettimeofclay(2), вероятно, ими можно воспользоваться для измере]И1я времени. Особетиюсти вызова syscall зависят от конкретного компьютера. В коммергтарии приведен п))имер-иый вид фрагмента, однако его переносимость ие гарантирована.

На некоторых компьютерах эти функциональные возможности инкапсулируются в модуле Time::HiRes (расирос1ра][яется с CPAN):

use Time HiRes qw(gettimeofday), $tO = gettimeofday, ## Ваши операции $t1 = gettimeofday, Selapsed = $t1 - $tO,

tt $elapsed - значение с плавающей точкой, равное числу секунд tt между $t1 и $12

Комментарий

В следующем фрагменте модуль Time::HiRcs используется для измерения промежутка между вьщачей сообщения и нажатием клавиши RETURN:

use Time HiRes qw(gettimeofday), print "Press return when ready ", Sbefore = gettimeofday; $line = <>;

$elapsed = gettimeofday-$before, print You took $elapsed seconds \n , Press return when ready: You took 0.228149 seconds.

Сравните с эквивален1Т№1м фрагментом, использующим syscall:

require sys/syscall ph ,

# Инициализировать структуры, возвращаемые gettimeofday $TIMEVAL T = LL

$done = $start = pack($TIMEVAL T, ()),

# Вывод приглашения

print Press return when ready t) Прочитать время в $start syscall(&SYS gettimeofday, $start 0)) i= -1 11 die gettimeofday $ ,

# Прочитать перевод строки $line = о,

# Прочитать время в $done syscall(&SYS gettimeofday, $done 0) = -1

11 die gettimeofday $

tt Распаковать структуру

@start = unpack($TIMEVAL T, $start),

@done = unpack($TIMEVAL T. $done),

ft Исправить микросекунды

for ($done[1], $start[1]) { $ /= 1 000 000 } ft Вычислить разность

$delta time = sprintf % 4f , ($done[0] + $done[1] )

($start[0] + $start[1] )

print That took $delta time seconds\n , Press return when ready. That took 0.3037 seconds

Программа получилась более длпппоп, поскольку системные фупкци]! вы.зы-ваются нспосредствспно из Peri, а в THTic::HiRes oini реализова]И>1 одной фу1н<:ци-еп С. К тому же oiia стала слолс]1се - для вызова специфических функци!! опе-рациопно!! системы необходимо хорошо разбираться в структурах С, которые передаются системе и возвращаются ей. Некоторые программы, входяци1с в поставку Perl, пытаются автоматически определить форматы раек и unpack по заголовочному файлу С. В пашем примере sys/syscall.ph - библиотечный файл Perl, сгеперировапный утилитой h2ph, которая преобразует заголовочщяй фа11Л sys/ syscallh в sys/syscall.ph. В частности, в нем определена функция &SYS gettimeofclay, возвращающая номер системного вызова для gettimeofday.

Следующий пример показывает, как использовать Time::HiRes для измерения временных характеристик:

use Time HiRes qw(gettimeofday), ft Вычислить среднее время сортировки

3.10. Короткие задержки 109

$size = 500, $number of times = 100 $total time = О

for ($1 =0, $1 < number of times $i++) { my (@array, $j, $begin, $time),

# Заполнить массив @array = 0,

for ($]=0, $]<$size $]++) { push(@array, rand) }

# Выполнить сортировку Sbegin = gettimeofday,

@array = sort { $a <=> $b } eiarray $time = gettimeofday=$t1, Stotal time += Stime,

printf On average, sorting %d random numbers takes %5 f seconds\n

Ssize ($total tiiTie/Snumber of times), On average, sorting 500 random numbers takes 0.02821 seconds

> Смотри также-

Документация по модулям Timc::HiRes и BenchMark с CPAN; описание функции syscall в perlfunc(i); man-страипца s£/.vra (2).

3.10. Короткие задержки

Проблема

Требуется сделать в программе паузу продолжнтсльпость]о менее секунды.

Решение

Воспользу11тесь функцией select, если она поддерживается Bauieii системой:

select(undef undef undef, Stime to sleep)

где $time to sleep - длительность паузы.

Некоторые систем])! не !1оддержива1от select с четырьмя аргументами. В модуле Ti!nc::HiRcs присутствует фушщия sleep, которая допус!сает дл!1!!у паузы с плавающей точкой:

use Time HiRes qw(sleep), sleep(Stime to sleep),

Комментарий

Следу!ощий фрагл!ент демоистр!!рует примс!!ение функции select. Он представляет собой упроще!!1!у!о верс!1!о программь! из ре!1е!1та 1.5. Можете рассмат-р!!вать его как эмулятор 300-бодного терм1И!ала: