perl能实现进程重启吗？

Luckyhan

在windows下面，想让进程自动重新启动
能实现吗？
能给些建议吗？谢谢大家

pyh

原帖由 "Luckyhan" 发表：
在windows下面，想让进程自动重新启动
能实现吗？
能给些建议吗？谢谢大家

－－－－－－－－－－－－－－－－－－－－－－－－
use Proc:rocessTable;



$t = new Proc:rocessTable;



foreach $p (@{$t->;table})

{

# note that we will also kill "xinetd" and all processes

# whose command line contains "inetd"

kill 9, $p->;pid if $p->;cmndline =~ 'inetd';

}
－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－
用于unix的，windows的你可以到cpan上找找，应该有的

bytewolf

偶下面这个程序运行后会运行一个记事本,如果你关闭这个记事本,即在进程列表中没有了notepad.exe的话,这个程序就会自动再运行记事本,这个是你想要的么?
必须安装Win32:rocess::Info模块

1. 
   
2. #!/usr/bin/perl
   
3. #cnhackTNT[AT]perlchina.org
   
4. use Win32::Process::Info;
   
5. 
   
6. $execer='notepad.exe';
   
7. $runORnot=0;
   
8. $|=1;
   
9. system('start '.$execer);
   
10. $pi = Win32::Process::Info->;new ();
    
11. while(1){
    
12.         foreach $proc ($pi->;GetProcInfo ()) {
    
13.                 if($$proc{'Name'} eq $execer){
    
14.                         $runORnot++;
    
15.                         last;
    
16.                 }else{
    
17.                         $runORnot=0;
    
18.                 }
    
19.         }
    
20.         if($runORnot==1){
    
21.                 print " "x70,"\r";
    
22.                 print "$execer is running....\r";
    
23.         }else{
    
24.                 print " "x40,"\r";
    
25.                 print "$execer in not running,I will call process $execer\r";
    
26.                 sleep 1;
    
27.                 system('start '.$execer);
    
28.         }
    
29. }
    

复制代码

ruiqingzheng

perl运行在linux下面的进程重启 是用  kill 1,$pid 吧