Исходное сообщение
"Модулb threads, Sys::SigAction и команда alarm." Отправлено jr, 07-Ноя-07 14:54
>[оверквотинг удален] >sub Tail { >   $SIG{'KILL'} = sub { close(TFH); threads->exit(); }; >   open(TFN,'tail -F -n 0 some_file |'); >   while(<TFN>) { >      ... >   } >   return $some; >} > >работает, до тех пор пока в файл что-то пишется. Если файл не изменяется, то всё залипает на 'while(<TFN>)'. Насколько я понял изучая вопрос, треды и сигналы (в понимании, в котором сигналы и должны быть) в perl не работают... Мне пришлось все на fork переделывать, т.к. без ALRM я не смог обойтись.