Рецепт дня [показать все рецепты]

Купи сейчас! Купи сейчас!

Рецепт дня

от The Perl Cookbook (Книги Рецептов) Тома Кристиансена и Натана Торкингтона. Каждый день, www.perl.org.ru представляет вам один рецепт от The Perl Cookbook (Книги Рецептов) O'Reilly. Если вы предпочитаете цифровую версию , полностью пронумерованную и индексированную, оснащенную поиском HTML версию Perl Cookbook (Книги Рецептов), то это одна из шести книг о Perl O'Reilly в HTML формате, которая включена в The Perl CD Bookshelf. Если вас это прикольнуло, то , пожалуйста приобретите копию одной из книг или CD используя ссылки справа. (Пожалуйста обратите внимание на то, что перекрестные ссылки на другие рецепты в книге были выключены на этой страничке , но полностью функционируют в CD-версии.)

Короткие Задержки

Проблема

Решение

select(undef, undef, undef, $time_to_sleep);

Некоторые системы четыре аргумента select . Модуль Time::HiRes дает функцию, которая дает число секунд с плавающей точкой:

use Time::HiRes qw(sleep);
sleep($time_to_sleep);

Описание

Вото простой пример select . Это упрощенный пример из Рецепта 1.5 .

while (<>) {
    select(undef, undef, undef, 0.25);
    print;
}

Используя Time::HiRes, мы напишем:

use Time::HiRes qw(sleep);
while (<>) {
    sleep(0.25);
    print;
}

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

Документацию на CPAN модули Time::HiRes и BenchMark; Функции sleep и select в perlfunc (1) and Главе 3 Programming Perl ; мы используем функцию select для коротких задержек в slowcat программе в Рецепте 1.5