09/04/02 15:25:20
>>849
$SIG{ALRM} = \&timeout; # ALRM シグナルをキャッチした場合の処理を定義
alarm 1; # タイマーを 1 秒にセット
#タイマーで時間を監視したい処理
system "sleep 10";
alarm 0; # タイマーをキャンセル
sub timeout {
#タイムアウトした際に実行する処理
print 'timeout';
alarm 1; # タイマーを 1 秒にセット
}
こうもしてみたけどやっぱりダメでした。やはりtimeoutは一発出ただけですたい。