用Perl写了一些监控脚本，放在crontab中调度执行。有时候会发现一个脚本运行时间过长，会同时跑起多个实例，因此有必要为脚本加上控制，只运行一个实例运行。

最简单自然的想法，在脚本中检查并创建一个空的lock文件，脚本结束时再删除。通过判断文件是否存在的方式来判断脚本是否已经运行。不过这样做有个bug，如果脚本运行过程中异常终止，lock文件没有正常删除，就会导致脚本无法再运行。

空的lock文件不行，那么考虑在lock文件中加入一点内容，比如进程的PID号，然后通过检查该PID号的进程是否还在运行，就能避免上述bug了。在CPAN上有很多现成的模块能够完成上述功能，如File::Lockfile， File::Pid， Proc::PID::File 等。

下面是File::Lockfile的一个示例，非常简单：

以下是代码片段：
#!/usr/bin/perl -w 
use File::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; 
# 脚本逻辑 
sleep 30 
#删除lock文件 
$lockfile->remove;

通过查看File/Lockfile.pm的源代码可以看到，判断lock文件中记录的进程是否已经运行，简单的通过kill 0,$pid即可实现。所以即使不用上述模块，自己实现也是非常容易的。

建议继续学习：

1. perl更新/修改/删除文本文件内容    (阅读：9424)
2. 一个典型支付系统的设计与实现    (阅读：7986)
3. perl大牛flw传说    (阅读：6506)
4. perl模块Getopt::Std用法及实例-从命令行读取参数模块    (阅读：5867)
5. [Perl] Template::Toolkit 模板技术.    (阅读：5361)
6. 在perl中连接和使用sqlite做数据存储    (阅读：5041)
7. Perl命令行常见用法及技巧    (阅读：4792)
8. perl的expect使用方法，实现非交互式登录。    (阅读：4479)
9. perl模块之MIME::Lite发送有附件的邮件    (阅读：4433)
10. Perl 倒行分析文件方法。perl读文本文件，从末尾往前读.    (阅读：4426)