main_01.plというプログラムがあります。
これは10分毎にバッチファイルから起動の命令が下ります。ただしプログラムの処理によっては10分以上かかることがあります。
この時、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;
No.2ベストアンサー
- 回答日時:
> # 排他処理開始
> open(LOCK,"$lockfile");
> flock(LOCK,2);
このやりかただと、たぶん質問者さんの意図通りにはなりません。
プログラムの動作に10分以上かかって次のプログラムが起動した場合、
後から起動したプログラムは
・flock の呼び出しで、先に起動したプログラムが終了する(ロックが解除される)まで待つ
・その後で、処理を実行する
ということになります。
重複実行はしませんが、起動した回数だけ必ず処理を実行しますので、
処理に毎回10分以上かかるような状況になった場合、どんどん未処理(終了待ち)のプロセスが増えていくことになります。
flock の処理は、
flock(LOCK,6) or die("実行中です");
とした方がいいでしょう。
flock は、第2引数が2(LOCK_EX)の場合は、あとから実行した方はロックが解除されるまで動作が停止しますが、
第2引数が6(LOCK_EX|LOCK_NB)の場合は、あとから実行した方がロック中だった場合は、0(エラー)を返します。
そのため、こうすることで、
「そのファイルがロック中であるならばプログラムは処理を行わずすぐに終了する」
という処理になります。
ありがとうございます、とてもうまく行きました。flock第2引数、勉強になりました!
実際に試してみたところ、うまく多重起動を禁止することができました。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
関連するカテゴリからQ&Aを探す
おすすめ情報
- ・漫画をレンタルでお得に読める!
- ・人生のプチ美学を教えてください!!
- ・10秒目をつむったら…
- ・あなたの習慣について教えてください!!
- ・牛、豚、鶏、どれか一つ食べられなくなるとしたら?
- ・【大喜利】【投稿~9/18】 おとぎ話『桃太郎』の知られざるエピソード
- ・街中で見かけて「グッときた人」の思い出
- ・「一気に最後まで読んだ」本、教えて下さい!
- ・幼稚園時代「何組」でしたか?
- ・激凹みから立ち直る方法
- ・1つだけ過去を変えられるとしたら?
- ・【あるあるbot連動企画】あるあるbotに投稿したけど採用されなかったあるある募集
- ・【あるあるbot連動企画】フォロワー20万人のアカウントであなたのあるあるを披露してみませんか?
- ・映画のエンドロール観る派?観ない派?
- ・海外旅行から帰ってきたら、まず何を食べる?
- ・誕生日にもらった意外なもの
- ・天使と悪魔選手権
- ・ちょっと先の未来クイズ第2問
- ・【大喜利】【投稿~9/7】 ロボットの住む世界で流行ってる罰ゲームとは?
- ・推しミネラルウォーターはありますか?
- ・都道府県穴埋めゲーム
- ・この人頭いいなと思ったエピソード
- ・準・究極の選択
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
「Cancel = True」とはどういう...
-
別フォームから戻ったときのイ...
-
javascriptの中で、perlのコマ...
-
vba IE操作で こういう事って...
-
Windowsで重い処理を実行したい
-
[Excel VBA 2003]マクロからツ...
-
[VBA]WEBページのリンク先情報...
-
Perlの多重起動を禁止したい
-
[CGI]ブラウザを閉じた時の動作
-
デジタル時計の時刻合わせの方...
-
マイページはどこを開くの
-
ウインドウを毎回同じ位置、大...
-
Excelでワードアートや図を常に...
-
エクセルのシート上に別のシー...
-
一定時間おきにアラームやポッ...
-
Javascript_submit()完了後に処...
-
スクリプトって、何ですか?ど...
-
PDFを(htmlのように)無限に縦...
-
リストビューをスクロールさせ...
-
Outlookでこのような表示がされ...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
別フォームから戻ったときのイ...
-
「Cancel = True」とはどういう...
-
VB2005 DataGridView上でクリッ...
-
excelのタスクバーアイコンが・...
-
VBAでIEの「Web ページからのメ...
-
C++での連続した左クリックの禁...
-
処理終了後のに砂時計が、クリ...
-
MSFlexGrid
-
VB6にて、バックグラウンド処理...
-
3進数は存在するのでしょうか
-
エクセル アプリケーションの...
-
「お気に入り」からアクセスさ...
-
python スクレイピングについて
-
Perlで数値(小数点、負の数、...
-
VB6.0のEnabledをfalseにしても...
-
[CGI]ブラウザを閉じた時の動作
-
同一の検索値が複数存在する場...
-
Excel VBAで行内にオートシェイ...
-
vba IE操作で こういう事って...
-
Perl, Ruby, Pythonどれを使え...
おすすめ情報