VPF::как заставить программу ждать N милисекунд?

ochnev

Дата 29.7.2006, 22:06 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 253
Регистрация: 27.3.2006

Репутация: нет
Всего: нет

Как заставить программу ждать N милисекунд? smile

nitr

Дата 30.7.2006, 02:01 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Участник Клуба
Сообщений: 2543
Регистрация: 10.2.2006
Где: Россия :)

Репутация: 37
Всего: 84

Код


sleep 10;

--------------------

I love ArchLinux

korob2001

Дата 30.7.2006, 20:38 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Комодератор
Сообщений: 2871
Регистрация: 29.12.2002

Репутация: 31
Всего: 61

В примере выше, программа заснёт на 10 секунд, причём меньше чем на секунду заснуть, со стандартным sleep() не получится.
Я так понимаю тебе нужно засыпать именно на доли секунды. Если да, то придётся перегрузить функцию sleep() из модуля Time::HiRes, тогда она будет работать и с числами с плавающей запятой.
Вот пример:

Код


#!/usr/bin/perl

# Перегружаем sleep() из Time::HiRes в текущее пространство имён
use Time::HiRes qw(sleep);

my $count = 0;
while (++$count <= 100) {
       print "$count\n";
       sleep(0.01);  # Теперь можем спать и меньше секунды
}

Если же ты будешь усыплять программу на целое число секунд, тогда воспользуйся примером, который привёл nitr.

Это сообщение отредактировал(а) korob2001 - 30.7.2006, 20:53

--------------------

"Время проходит", - привыкли говорить вы по неверному пониманию.
"Время стоит - проходите вы".

ochnev

Дата 30.7.2006, 20:55 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 253
Регистрация: 27.3.2006

Репутация: нет
Всего: нет

Спасибо за наводку на Time::HiRes, там есть и такое:

Цитата

Код


usleep ( $useconds )

Sleeps for the number of microseconds specified. Returns the number of microseconds actually slept. Can sleep for more than one second, unlike the usleep system call. See also Time::HiRes::sleep() below.

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Perl: Общие вопросы \| Следующая тема »