Perl:mutex、二重起動の防止

あるプログラムが走っているときに、同時に同じプログラムを起動させたくないときがある。Windows環境であればmutexオブジェクトを使うことができ、Perl にもWin32::Mutexモジュールが存在する。

use Win32::Mutex;
die "二重起動" if(Win32::Mutex->open('hogehoge'));
$mutex=Win32::Mutex->new(1, 'hogehoge');

２行目で他に hogehoge という名前の Mutex オブジェクトが作られていないかどうかチェックし、もし他で hogehoge という名の Mutex オブジェクトが作られていれば、先へ進まずに終了する。３行目では hogehoge という Mutex オブジェクトを作成している。
したがって、このスクリプトを２つ起動しようとしても、２つ目は２行目のチェックで引っかかって終了してくれるはずである。

ただし、タイミングによっては完璧ではないようだ。

参考：http://www.augustus.to/blog/3128/archives/2004/08/index.html