02/06/24 22:29
わたしが見たソース（古い）
URLﾘﾝｸ(homepage1.nifty.com)
こんなことしてます。
eval {
local $SIG{ALRM} = sub { die "time out" }; # 時間が来たら抜け出す
open(OUT, "+< $datafile") or die;
alarm(5); # 先行プロセスを待つ時間（５秒）
flock(OUT, 2) or die; # ロック確認。ロック
alarm(60); # 自分自身の制限時間（１分）
一連の処理
close(OUT); # closeすれば自動でロック解除
alarm(0); # 無事済んだのでリセット
};
if ($@ =~ /time out/) {
タイムアウト時の処理
}
elsif ($@) { die }