нужно читаить из дескикриптора, допустим <STDIN>
с таймаутом.
те что-то типа
while (true)
{
my $line = read_with_timeout(<STDIN>,'10');
if (!$line)
{
print STDOUT 'timeout'
}
}
перерыл десяток справочников.
может кто-нибуть подскажет как это реализовать?

• чтение из дескриптора с таймаутом,alchie, 09:31 , 14-Июл-04
  • чтение из дескриптора с таймаутом,Wizard, 19:17 , 14-Июл-04

>нужно читаить из дескикриптора, допустим <STDIN>
>с таймаутом.
>те что-то типа
>while (true)
>{
>my $line = read_with_timeout(<STDIN>,'10');
>if (!$line)
> {
> print STDOUT 'timeout'
> }
>}
>перерыл десяток справочников.
>может кто-нибуть подскажет как это реализовать?

смотреть в сторону select() с  4-мя параметрами, либо в сторону SIG ALRM (alarm())

perldoc -f select
perldoc -f alarm
perldoc perlipc

сделал через alarm
спасибо!