Perlの多重起動を禁止したい
main_01.plというプログラムがあります。
これは１０分毎にバッチファイルから起動の命令が下ります。ただしプログラムの処理によっては１０分以上かかることがあります。
この時、main_01.pl がすでに起動していた場合、main_01.pl はすぐに exit; になるように組みたいのです。僕が考えた方法は、あるテキストファイルにロックをかけ、そのファイルがロック中であるならばプログラムは処理を行わずすぐに終了する、といった感じです。
＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝
# タイムアウト処理
my $timeout = 5;
# 排他処理
my $lockfile="lock.txt";
# 多重起動停止
（ここに $lockfile が書き込めなかったらmain_01.plは別に起動していることになるので起動しない。）
# 排他処理開始
open(LOCK,"$lockfile");
flock(LOCK,2);
# 処理開始
eval {
# タイムアウト
local $SIG{ALRM} = sub { die "alarm\n" };
alarm( $timeout );
# プログラムスタート
print "\n◆スタート\n\n";
sleep(4);
# プログラム終了
print "\n◆終わりました。\n\n";
};
# タイムアウト処理
if ( $@ ) {
# タイムアウト
print "\nタイムアウトしました。TIMEOUT= $timeout \n";
} else {
# タイムアウトせずに正常終了
print "\n正常終了しました。\n";
}
# 排他処理終了
close(LOCK);
exit;
お礼
回答有難うございます！