форумы  помощь  поиск  регистрация  майллист  ВХОД  слежка

Вариант для распечатки		Пред. тема | След. тема
Форумы Разговоры, обсуждение новостей (Public)
Изначальное сообщение		[Проследить за развитием треда]

"Раздел полезных советов: Как ограничить время выполнения Per..."

Сообщение от auto_tips on 10-Сен-03, 07:05

use constant TIMEOUT => 1; eval {    local $SIG{ALRM} = sub { die "timeout during sysread\n"; };    alarm(TIMEOUT);    $read_flag = sysread($filehandle, $c, 1);    alarm(0); }; URL: Обсуждается: http://www.opennet.dev/tips/info/308.shtml

Правка | Высказать мнение | Ответить | Cообщить модератору | Наверх

Сообщения по теме

[Сортировка по времени, UBB]

1. "Как ограничить время выполнения Perl блока таймаутом"

Сообщение от Alex on 10-Сен-03, 07:05

Применение конечно намного шире нежели чем просто "die" внутри eval. Каждый новый alarm отменяет действие предыдущего и переустанавливает счетчик "секунд". Значение 0 отменяет alarm вообще. Не всегда alarm корректно отрабатывает под mod_perl.  В каждом случае надо пробовать отдельно.

Правка | Высказать мнение | Ответить | Cообщить модератору | Наверх

2. "Как ограничить время выполнения Perl блока таймаутом"

Сообщение от Дмитрий (??) on 15-Июл-06, 02:19

Спасибо алекс

Правка | Высказать мнение | Ответить | Cообщить модератору | Наверх

Архив | Удалить	Индекс форумов | Темы | Пред. тема | След. тема
Оцените тред (1=ужас, 5=супер)? [ 1 | 2 | 3 | 4 | 5 ] [Рекомендовать для помещения в FAQ]