如何在脚本启动的时候检测脚本是否已经在运行？

py

网上找了很多都不太好。
c/c++可以调用kill来判断，Perl不知道有没有什么惯用的办法？

yybmsrs

查看进程？或者也用kill？

toniz

是不是想实现一个程序只能运行一个实例？

027xiatian

这个跟语言关系不大吧，C里有Kill(0,pid) , perl 也有类似的kill 0=>$pid

兰花仙子

网上找了很多都不太好。
c/c++可以调用kill来判断，Perl不知道有没有什么惯用的办法？
py 发表于 2010-10-18 08:47

    一般都是用pid文件加kill 0的方式。

但是，很有可能这种情况，比如你系统断电重启，pid文件没有删除掉，比如里面记录pid是1234.
然后系统重启，你的脚本先找到pid文件，获取它的值，并发送一个kill 0 => 1234.
很有可能，这个kill 0返回true，但是1234不是你的脚本的进程ID，而是系统中其他一个进程的ID（因为系统重启过）。
这时你的脚本，就会错误的拒绝启动。。。这个问题很讨厌。

zhlong8

用pid文件肯定没法避免断电的问题，应该放到断电就自动删除消失的地方，比如内存，不如建个后台进程专门搞这个，通过socket查询。这样可以处理很多个有这样需求的程序，而且实现也简单

expert1

回复 5# 兰花仙子


    有过类似痛苦的经历，不知有什么好办法没有呀斑竹

py

是不是想实现一个程序只能运行一个实例？
toniz 发表于 2010-10-18 09:00

是的。这问题一直困扰我，一直都是想别的办法躲开这个问题的。

ua

pid文件+时间行吗? 隔一段时间写一下文件内容

toniz

我一般是这样做的：

先写两个函数

1. #lock_prog()
   
2. sub lock_prog
   
3. {
   
4.     if( open( LockFH, "> lock_file.lck" ) )
   
5.     {
   
6.         if( flock( LockFH, 2|4 ) )  #LOCK_SH:1, LOCK_EX:2, LOCK_UN:8, LOCK_NB:4
   
7.         {
   
8.             return 0;
   
9.         }
   
10.     }
    
11.     return 1;
    
12. }
    
13. 
    
14. #unlock_prog()
    
15. sub unlock_prog
    
16. {
    
17.     if( defined( fileno( LockFH ) ) )
    
18.     {
    
19.         if( $mutex_flag  )
    
20.         {
    
21.             close( LockFH );
    
22.         }
    
23.         else
    
24.         {
    
25.             flock( LockFH, 8 );
    
26.             close( LockFH );
    
27.             unlink( glob( "lock_file.lck") );
    
28.         }
    
29.     }
    
30. }

复制代码

代码开头的时候添加下面代码：

1. if( ( $mutex_flag = lock_prog() ) == 1 )
   
2. {
   
3.     exit( -1 );
   
4. }

复制代码

代码末尾添加下面代码：

1. unlock_prog();

复制代码

主要是利用perl的文件锁，程序开始时候，测试该文件是否被锁，如果被锁，则证明已经有一个实例在运行。那么就退出代码。