请perl的前辈们帮助我！！谢谢！！！

zmcslb

本人对perl刚开始学，现在很苦恼！老板要求我写一个脚本，功能大概是这样的：
1。能够通过运行脚本打开某个。exe文件(启动后就是进程）。
2。对这个进程的状态进行判断，看这进程是否在运行！如运行就返回依据表示成功的语句，如不运行则执行另一个脚本！
希望您 :能帮我这个忙，我会不胜感激！谢谢！！

zmcslb

没人告诉我吗？版主呢？您能告诉我吗？谢谢了！

bytewolf

我给你给例子好了，首先请安装Win32:rocess::Info这个模块，可以在CPAN找到，也可以用ActivePerl自带的ppm安装Win32-Process-Info
，我给出的这个例子在运行后会自动运行记事本notepad.exe，然后循环判断进程列表里有没有notepad.exe，如果有，就打印notepad is running,否则打印notepad is not running并且运行另外一个程序（这里的另外一个程序也设成了notepad.exe)

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

复制代码

zmcslb

十分谢谢你，我是发自内心的！谢谢！！