Исходное сообщение
"Модулb threads, Sys::SigAction и команда alarm." Отправлено alexvs, 07-Ноя-07 14:47
>man perlthtut > >Similarly, mixing signals and threads should not be attempted.  Implementations are >platform-dependent, and even the POSIX semantics may not be what you >expect (and Perl doesn't even give you the full POSIX API). > > >для тредов есть другие методики, позволяющие реализовать подобное. Ответ просто "радует" своей полнотой и просветляющей способностью :( Есть тред в котором открываю пайп и читаю из него. Как убить тред через N секунд? my $first = threads->create(\&Tail); sleep(10); my $some = $first->kill('KILL')->join(); sub Tail {    $SIG{'KILL'} = sub { close(TFH); threads->exit(); };    open(TFN,'tail -F -n 0 some_file |');    while(<TFN>) {       ...    }    return $some; } работает, до тех пор пока в файл что-то пишется. Если файл не изменяется, то всё залипает на 'while(<TFN>)'.