Re: perl таймаут

#!/usr/bin/perl -w

use strict;

$SIG{ALRM} = sub { die "read timeout" };
alarm 2;
$_=<>;
print "read: $_\n";

Re: perl таймаут

http://search.cpan.org/~patl/Time-Out-0.10/Out.pod

Re: perl таймаут

alarm и Time::Out не подходят извините забыл сказать что таймаут надо меньше 1 секунды. есть другие варианты?

Re: perl таймаут

Можно завязать все на Glib::Timeout, который умеет таймауты меньше секунды, но, естественно для этого понадобятся перловые биндинги для Glib'а.

Re: perl таймаут

в CPAN его нету?

nolock_cpan> i /Glib::Timeout/ No objects found of any type for argument /Glib::Timeout/

Re: perl таймаут

$ perldoc -f alarm | grep -A6 Time::HiRes
               Time::HiRes module (from CPAN, and starting from Perl 5.8 part
               of the standard distribution) provides ualarm().  You may also
               use Perl’s four-argument version of select() leaving the first
               three arguments undefined, or you might be able to use the
               "syscall" interface to access setitimer(2) if your system
               supports it. See perlfaq8 for details.

Re: perl таймаут

> в CPAN его нету?

Не знаю, я средствами дистрибутива ставил (пакет glib-perl).

Re: perl таймаут

Во в Time::HiRes есть функция ualarm() такая же как alarm() только время в микросекундах :) всем спс.

Re: perl таймаут

Вообще-то в Time::Out написано, что "при использовании Time::HiRes аларм будет действительным числом".