perl文件锁使脚本以单实例运行
本节内容:
perl文件锁实现脚本单实例运行。
使用perl实现的一些监控脚本(perl干这个,那是相当不错),放在crontab中调度执行。
有时一个脚本运行时间过长,会同时跑起多个实例,因此有必要为脚本加上控制,只运行一个实例。
初始想法:
在脚本中检查并创建一个空的lock文件,脚本结束时再删除。
通过判断文件是否存在的方式来判断脚本是否已经运行。
不过这样做有个bug,如果脚本运行过程中异常终止,lock文件没有正常删除,就会导致脚本无法再运行。
空的lock文件不行,那么考虑在lock文件中加入一点内容,比如进程的PID号,然后通过检查该PID号的进程是否还在运行,就能避免上述bug了。
在CPAN上有很多现成的模块,如File::Lockfile, File::Pid, Proc::PID::File 等,均可以实现此功能。
例子,File::Lockfile的示例代码。
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文件锁使脚本以单实例运行
Perl 条件语句
Perl 环境安装
Perl 简介
mysql如何锁定单个表
Perl 基础语法
PHP4用户手册:函数-flock
php中 flock 文件锁 详解
Perl 教程
《Perl编程24学时教程》笔记第17课 perl的CGI概述