perl使用file::lockfile确保脚本单实例运行的方法
perl写的监控脚本,放在crontab中调度执行。
一个脚本运行时间过长,会同时跑起多个实例,因此有必要为脚本加上控制,只运行一个实例。
最简单方法:
在脚本中检查并创建一个空的lock文件,脚本结束时再删除。
通过判断文件是否存在的方式来判断脚本是否已经运行。
不过这样做有个bug,如果脚本运行过程中异常终止,lock文件没有正常删除,就会导致脚本无法再运行。
空的lock文件不行,那么考虑在lock文件中加入一点内容,比如进程的PID号,然后通过检查该PID号的进程是否还在运行,就能避免上述bug了。
在CPAN上有很多现成的模块能够完成上述功能,如File::Lockfile, File::Pid, Proc::PID::File 等。
例子,file::lockfile模块用法。
通过查看file/lockfile.pm的源代码可以看到,判断lock文件中记录的进程是否已经运行,kill -0 $pid 即可实现。
该方法是在脚本中经常用到限制单实例的方法,mysql 等程序在每次启动前也会检查上次遗留的 mysql.pid 文件。
方法二:给lock文件加排它锁,判断是否有锁来确保唯一性。