プロセス間の期限付き排他ロック

追記 2013-03-04

[twitter:@dankogai] さんにも言及されてました＞＜

• 404 Blog Not Found:perl - soloで任意のコマンドを期限付きで排他実行する

追記 2013-03-01

つづきを書きました。

• 続・プロセス間の期限付き排他ロック - (ひ)メモ

追記 2013-02-27

コメント欄でのやりとりの通り、穴がある（クリティカルセクションに複数プロセスが突入する可能性がある）のでちょっと出直してきます！！

やりたいこと

• プロセス間の排他的実行を制御したい
• 一定時間経過したら実行できるようにしたい
  • 例えば、フェイルオーバーを実行するスクリプトは、何度も実行できるとフェイルオーバー/バックを繰り返してフラップするので、一度フェイルオーバーしたら一定時間は実行できないようにしたい

実装

• シンボリックリンクを使って排他制御する
• 期限切れは、シンボリックリンクそのものの mtime で表現する
  • mtime <= now なら期限切れ
  • つまり、シンボリックリンクの mtime を期限が切れる時刻(未来)にする
  • シンボリックリンクの mtime は作成時のままにして、ttl を意識して、now - mtime > ttl で判定するのと比較した利点
    • スクリプトのttlを確認しなくても、statコマンドでシンボリックリンクのmtimeを見れば、いつ期限が切れるのかすぐにわかる
    • touch -h (-hオプションは多分coreutils 8.1以上ので対応)やlutime(3)を使って、スクリプト外から期限の延長が行える (mtimeを更に未来の時刻にすればいい)

• シンボリックリンクは、その元となるファイルは存在していなくても構わない
  • ロック元のプロセスを特定できる情報を持った(存在しない)ファイル名にしておく
    • 識別子 + PID

実行例

ttl 10秒でロックを獲得。unlockせずに終了。
$ ./ipc-lock-withttl.pl
2013-02-27T11:00:00 [INFO] Got lock! yay!! at ./ipc-lock-withttl.pl line 20

10秒経過するまでは、再実行してもロックを獲得できない
$ ./ipc-lock-withttl.pl
2013-02-27T11:00:03 [CRITICAL] Cannot lock at ./ipc-lock-withttl.pl line 17
$ ./ipc-lock-withttl.pl
2013-02-27T11:00:07 [CRITICAL] Cannot lock at ./ipc-lock-withttl.pl line 17

10秒経過すると、再度ロックを獲得できる
$ ./ipc-lock-withttl.pl
2013-02-27T11:00:10 [INFO] Got lock! yay!! at ./ipc-lock-withttl.pl line 20

【募】

• それ○○でできるよ！！
• IPC::Lock::WithTTL よりよい名前
• 実装の妥当性に対するご意見
• その他、はげましのお便り