Perl コーディング初心者質問コーナー Part26

[0225 nobodyさん 03/07/29 21:36 ID:???]

>>213
alarm使って、キー待ちにしたらどう？
time値の0秒ジャストで動かせないけど。

local $SIG{ALRM} = sub { die 'timeout' };

...
my $c = &keywait(1);
...

sub keywait
{
my $interval = shift;

eval{
alarm($interval*60);
<>;
alarm(0);
};
if ($@){
alarm(0);
($@ =~ /timeout/) or die;
return(0);
}

return(1);
}