Perl中使用File::Lockfile確保指令碼單一實例運行_perl

用Perl寫了一些監控指令碼，放在crontab中調度執行。有時候會發現一個指令碼已耗用時間過長，會同時跑起多個執行個體，因此有必要為指令碼加上控制，只運行一個執行個體。

最簡單自然的想法，在指令碼中檢查並建立一個空的lock檔案，指令碼結束時再刪除。通過判斷檔案是否存在的方式來判斷指令碼是否已經運行。不過這樣做有個bug，如果指令碼運行過程中異常終止，lock檔案沒有正常刪除，就會導致指令碼無法再運行。

空的lock檔案不行，那麼考慮在lock檔案中加入一點內容，比如進程的PID號，然後通過檢查該PID號的進程是否還在運行，就能避免上述bug了。在CPAN上有很多現成的模組能夠完成上述功能，如File::Lockfile， File::Pid， Proc::PID::File 等。

下面是File::Lockfile的一個樣本，非常簡單：

以下是程式碼片段：

複製代碼 代碼如下:

#!/usr/bin/perl -w
useFile::Lockfile;
# lock檔案位於/tmp目錄，名為test_file_lock.lck
my $lockfile= File::Lockfile->new('test_file_lock','/tmp');
# 檢查指令碼是否已經運行，如已運行則退出
if ( my $pid= $lockfile->check ) {
  print"program is already running with PID: $pid";
  exit;
}
#更新lock檔案
$lockfile->write;
# 指令碼邏輯
sleep30
#刪除lock檔案
$lockfile->remove;

通過查看File/Lockfile.pm的原始碼可以看到，判斷lock檔案中記錄的進程是否已經運行，簡單的通過 kill -0 $pid 即可實現。所以即使不用上述模組，自己實現也是非常容易的。

小結：

該方法是在指令碼中經常用到限制單一實例的方法，MySQL 等程式在每次啟動前也會檢查上次遺留的 mysql.pid 檔案。

另一個方法：給lock檔案加排它鎖，判斷是否有鎖來確保唯一性。