Perl脚本单实例运行
2017-10-06 21:19:32 
阿炯
用Perl写了一些监控脚本，放在crontab中按时调度执行。当脚本运行时间过长时，会同时跑起多个实例，因此有必要为脚本加上控制，只允许当前系统中只运行一个实例。最简单的想法，在脚本中检查并创建一个空的lock文件，脚本结束时再删除。通过判断文件是否存在的方式来判断脚本是否已经运行。不过这样做有个问题，如果脚本运行过程中异常终止，lock文件没有正常删除，就会导致脚本再也无法运行。
空的lock文件不行，那么考虑在lock文件中加入一点内容，比如进程的PID号，然后通过检查该PID号的进程是否还在运行，就能避免上述问题了。在CPAN上有很多现成的模块能够完成上述功能，如File::Lockfile、File::Pid、Proc::PID::File 等模块。本文就总结一些方法来从不同的方面来解决这个问题，包括一些cpan上的模块。
方法一：
从分析在操作系统中的名称和进程ID来判断程序是否在运行之中
##############################
use Proc::ProcessTable;
use File::Basename qw(dirname basename);
#进程Id&Name
my ($pid,$pname)=($$,basename($0));
#取得系统中进程信息
my $pt = new Proc::ProcessTable;
foreach my $p (@{$pt->table}){
#防止脚本重复运行
$log->error('cron task which start on: '.strftime('%Y-%m-%d %H:%M:%S',localtime($p->start)).' not completed yet,try next time.') && die if(($p->cmndline=~/$pname$/) and ($pid != $p->pid));
}
方法二：
使用File::Lockfile模块
下面是File::Lockfile的一个示例，非常简单：
##############################
use File::Lockfile;
# lock文件位于/tmp目录，名为freeoa_lock.lck
my $lockfile = File::Lockfile->new('freeoa_lock','/tmp');
# 检查脚本是否已经运行，如已运行则退出
if ( my $pid = $lockfile->check ) {
print "program is already running with PID: $pid";
exit;
}
#更新lock文件
$lockfile->write;
# 脚本逻辑
sleep 3
#删除lock文件
$lockfile->remove;
通过查看File/Lockfile.pm的源代码可以看到，判断lock文件中记录的进程是否已经运行，简单的通过kill 0,$pid即可实现。所以即使不用上述模块，自己实现也是非常容易的。