Perl脚本同时只运行一个实例
2017-07-25 10:48
429 查看
转载出处: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的一个示例,非常简单:
用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; |
相关文章推荐
- [shell应用进阶]:限制同时运行脚本实例的个数 -- 串行化:换一个思路。
- Sqlserver Sql Agent Job 只能同时有一个实例运行
- bat脚本实例实现只允许运行一个实例(安装程序、创建快捷方式脚本)
- 避免一个程序多个实例同时运行
- linux shell 确保脚本只有一个运行实例
- shell脚本只运行一个实例
- 实现同时只允许运行一个程序实例
- 让powershell同时只能运行一个脚本(进程互斥例子)
- perl通过文件锁让脚本单实例运行
- Shell脚本实例(一) 监控一个程序的运行情况
- 利用两个BrocastReceiver来保证同时只有一个实例在运行
- 只能同时运行一个实例
- 如何确保 Shell 脚本只有一个实例运行
- c# Winform 如何实现程序只能同时运行一个实例
- Perl中使用File::Lockfile确保脚本单实例运行
- 实现同时只允许运行一个程序实例
- 实现同时只允许运行一个程序实例
- 如何使Shell脚本只有一个实例在运行
- Python实现保证只能运行一个脚本实例
- C#利用Mutex互斥量实现同时只有一个进程实例在运行