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

py

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

stray_eagle

exit if 2==grep {/$0/i} `ps -ef | grep $0 | grep -v grep`;

liseen

建议使用  Proc::daemon 模块

详细见：
       http://search.cpan.org/~ehood/Proc-Daemon-0.03/Daemon.pm

py

回复 10# toniz


多谢toniz～ 呵呵，我都试试看。

py

回复 5# 兰花仙子


多谢，这方法在我这可行。我这里的机器几年都不重启。

expert1

我愿闻其详

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的文件锁，程序开始时候，测试该文件是否被锁，如果被锁，则证明已经有一个实例在运行。那么就退出代码。

ua

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

py

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

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

expert1

回复 5# 兰花仙子


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