如何 让Perl脚本同时只运行一个实例

Acfe

用Perl写了一些监控脚本，放在crontab中调度执行。有时候会发觉一个脚本运行时间过长，会同时跑起多个实例，因此有必要为脚本加上控制，只运行一个实例运行。

最基本自然的想法，在脚本中检查并建立一个空的lock文件，脚本结束时再删除。通过判断文件能不能存在的形式来判断脚本能不能已经运行。不过这样做有个bug，如果脚本运行流程中异常终止，lock文件没有正常删除，就会导致脚本不能再运行。

空的lock文件不可以，那么考虑在lock文件中加入一点内容，比如进程的PID号，然后通过检查该PID号的进程能不能还在运行，就能防止上述bug了。在CPAN上有很多现成的模块能够完成上述功能，如File::Lockfile， File::Pid， Proc::PID::File 等。

下面是File::Lockfile的一个示例，非常基本：

#!/usr/bin/perl -w
use File::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;
# 脚本逻辑
sleep 30
#删除lock文件
$lockfile->remove;
通过查看File/Lockfile.pm的源代码可以看到，判断lock文件中记录的进程能不能已经运行，基本的通过kill 0,$pid即可实现。所以即使不用上述模块，自己实现也是非常容易的。