https://opennet.ru/openforum/vsluhforumID3/2483.html use constant TIMEOUT =&gt; 1;<br>eval {<br> local $SIG{ALRM} = sub { die "timeout during sysread\n"; };<br> alarm(TIMEOUT);<br> $read_flag = sysread($filehandle, $c, 1);<br> alarm(0);<br>};<br><br><br>URL: <br>Обсуждается: http://www.opennet.ru/tips/info/308.shtml<br><br> https://opennet.ru/openforum/vsluhforumID3/2483.html#2 Fri, 14 Jul 2006 22:19:03 GMT Спасибо алекс https://opennet.ru/openforum/vsluhforumID3/2483.html#1 Wed, 10 Sep 2003 03:05:39 GMT Применение конечно намного шире нежели чем просто "die" внутри eval. Каждый новый alarm отменяет действие предыдущего и переустанавливает счетчик "секунд". Значение 0 отменяет alarm вообще.<br>Не всегда alarm корректно отрабатывает под mod_perl. В каждом случае надо пробовать отдельно.<br>