[Moscow.pm] Ограничить время выполнения произвольной функции

[Mons Anderson]

On Friday 29 January 2010 16:48:34 Mons Anderson wrote:
> можно использовать "плохой" goto ;)
>
> perl -E 'sub foo { eval "sleep 10" } { local $SIG{ALRM} = sub { goto EXIT;
> }; alarm 1; foo(); EXIT: alarm 0; say "exited" }'

мда, фигню сморозил.

вобщем терминировать процесс можно,
а вот завершить принудительно сабу - это фиг

-- 
Mons Anderson aka Vladimir Perepelitsa
<mons на cpan.org> / #99779956 / quanth на irc.freenode.net