perl通过文件锁让脚本单实例运行

浙江雁荡山

　　原文地址：http://blogread.cn/it/article/743?f=wb
　　
　　用Perl写了一些监控脚本，放在crontab中调度执行。有时候会发现一个脚本运行时间过长，会同时跑起多个实例，因此有必要为脚本加上控制，只运行一个实例。
　　最简单自然的想法，在脚本中检查并创建一个空的lock文件，脚本结束时再删除。通过判断文件是否存在的方式来判断脚本是否已经运行。不过这样做有个bug，如果脚本运行过程中异常终止，lock文件没有正常删除，就会导致脚本无法再运行。
　　空的lock文件不行，那么考虑在lock文件中加入一点内容，比如进程的PID号，然后通过检查该PID号的进程是否还在运行，就能避免上述bug了。在CPAN上有很多现成的模块能够完成上述功能，如File::Lockfile， File::Pid， Proc::PID::File 等。
　　下面是File::Lockfile的一个示例，非常简单：
　　以下是代码片段：
　　

01	#!/usr/bin/perl -w

02	useFile::Lockfile;

03	# lock文件位于/tmp目录，名为test_file_lock.lck

04	my $lockfile= File::Lockfile->new(’test_file_lock’,’/tmp’);

05	# 检查脚本是否已经运行，如已运行则退出

06	if ( my $pid= $lockfile->check ) {

07	print"program is already running with PID: $pid";

08

exit;

09

}

10

#更新lock文件

11	$lockfile->write;

12

# 脚本逻辑

13

sleep30

14

#删除lock文件

15	$lockfile->remove;

　　
　　通过查看File/Lockfile.pm的源代码可以看到，判断lock文件中记录的进程是否已经运行，简单的通过 kill -0 $pid 即可实现。所以即使不用上述模块，自己实现也是非常容易的。
　　小结：
　　该方法是在脚本中经常用到限制单实例的方法，MySQL 等程序在每次启动前也会检查上次遗留的 mysql.pid 文件。
　　另一个方法：给lock文件加排它锁，判断是否有锁来确保唯一性。