perl通过文件锁让脚本单实例运行
来源:互联网 发布:淘宝无线端详情加链接 编辑:程序博客网 时间:2024/06/06 05:37
原文地址: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
use
File::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
sleep
30
14
#删除lock文件
15
$lockfile
->remove;
通过查看File/Lockfile.pm的源代码可以看到,判断lock文件中记录的进程是否已经运行,简单的通过 kill -0 $pid 即可实现。所以即使不用上述模块,自己实现也是非常容易的。
小结:
该方法是在脚本中经常用到限制单实例的方法,MySQL 等程序在每次启动前也会检查上次遗留的 mysql.pid 文件。
另一个方法:给lock文件加排它锁,判断是否有锁来确保唯一性。
- perl通过文件锁让脚本单实例运行
- 如何让Perl脚本同时只运行一个实例
- Perl脚本同时只运行一个实例
- 如何让应用程序单实例运行
- perl脚本实例链接
- 通过监听文件日志统计连接情况的perl脚本
- [linux手机平台]让应用程序单实例运行
- 通过例子解析perl脚本
- perl如何运行执行脚本
- perl 中常用的文件锁实例
- 单实例运行
- VB 单实例运行
- 单实例运行程序
- 实现单实例运行
- WinForm单实例运行
- C# 单实例运行
- c# 单实例运行
- Winform 单实例运行
- 免费的 jQuery UI 主题集合
- Python-Django的windows环境
- 在vim中使用perltidy美化perl代码
- perl脚本的目录
- Linux 中用 strace 追踪系统调用和信号值
- perl通过文件锁让脚本单实例运行
- Linux下的SSH端口转发
- Perl 之 use(), require(), do(), %INC and @INC
- C++中调用库函数实现快速排序
- Linux技术blogs
- 订阅本博客itech.cnblogs.com
- Android UI控件之ListView实现圆角效果
- Android 唯一识别码
- TeXworks中文乱码问题