Perl中使用File::Lockfile确保脚本单实例运行
更新时间：2014年11月24日 09:50:51 投稿：junjie
这篇文章主要介绍了Perl中使用File::Lockfile确保脚本单实例运行的方法,本文直接给出实例,方法非常简单,需要的朋友可以参考下
（福利推荐：【腾讯云】服务器最新限时优惠活动，云服务器1核2G仅99元/年、2核4G仅768元/3年，立即抢购>>>：9i0i.cn/qcloud）
（福利推荐：你还在原价购买阿里云服务器？现在阿里云0.8折限时抢购活动来啦！4核8G企业云服务器仅2998元/3年，立即抢购>>>：9i0i.cn/aliyun）
用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文件加排它锁，判断是否有锁来确保唯一性。
相关文章
Perl使用File::Basename获取文件扩展名的代码
本文为大家介绍的这个例子，实现了获取/home/topgkw中所有文件后缀，其中目录返回空值2013-02-02
Perl 中的use和require，都是用来加载和引用Perl的模块，或者是子程序，区别在于Perl use是在当前默认的里面去寻找，一旦模块不在指定的区域内的化，用Perl use是不可以引入的2013-02-02
perl uc,lc,ucfirst,lcfirst大小写转换函数
这篇文章主要介绍了perl 大小写字母转换函数,需要的朋友可以参考下2017-10-10
这篇文章主要介绍了讲Perl中的本地时间与UNIX时间戳间相互转换的方法,主要用到了Perl中的Date::Parse模块,需要的朋友可以参考下2015-06-06
本文向大家简单介绍一下Perl split函数的用法，Perl中的一个非常有用的函数是Perl split函数-把字符串进行分割并把分割后的结果放入数组中2013-02-02
Perl的经典用法分享，学习perl的朋友可以参考下2013-02-02
如果要对使用的lib指定路径，可以使用下面的语法2013-02-02
使用perl实现一个简单的NIDS，有需要的朋友可以参考下2013-02-02
这篇文章主要介绍了Perl中的控制结构学习笔记,本文讲解了条件语句if、条件语句unless、循环语句while、循环语句until、for循环、foreach语句、循环控制等内容,需要的朋友可以参考下2014-11-11
这篇文章主要介绍了Perl中的列表和数组学习笔记,本文讲解了列表、数组--列表的存贮、数组的存取、字符串中的方括号和变量替换、列表范围、数组的输出等内容,需要的朋友可以参考下2015-02-02
最新评论