Perl中使用File::Lockfile确保脚本单实例运行(perl-v)

推荐整理分享Perl中使用File::Lockfile确保脚本单实例运行(perl-v)，希望有所帮助，仅作参考，欢迎阅读内容。

文章相关热门搜索词:perl curl,perl .pl,perl defined,perl defined,perl中使用SVG画折线图,perl处理文件,perl fileparse,perl处理文件,内容如对您有帮助，希望把文章链接给更多的朋友！

用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文件加排它锁，判断是否有锁来确保唯一性。

7个perl数组高级操作技巧分享 1、去除一个数组中的重复元素：使用grep函数代码片段：代码:my@array=('a','b','c','a','d',1,2,5,1,5);my%count;my@uniq_times=grep{++$count{$_}2;}@array;使用转换hash代码片段

perl面向对象实例 首先让我们来看看有关Perl面向对象编程的三个基本定义：1.一个对象是指一个有办法知道它是属于哪个类的简单引用。(对象就是引用变量)2.一个类是指

Perl eval函数使用实例 Perl作为一种脚本语言可以实时地生成和执行代码。这种特性可以把代码的编译推迟到运行时，所以又称为动态代码。另外，Perl也如Java、C++一样提供了