system之后如何kill

wx2wx

请问，我在perl中system一个子程序A，但是不确定A会跑多久，我用了eval{alarm}来判断A，如果超过一个小时，就die eval，然后继续执行下面的代码。但是我也需要把这个A给kill掉，但是因为同时有几十个A都在跑，请问我如何kill掉正确的A呢？或者说如何获得system产生的pid？
谢谢！

华小飞_Perl

楼主的意思是存在多个A，想获得对应A的PID，并kill掉吗？

thanatos0

你是一个PERL执行一个system A 吗，我不知道你很多个A是怎么弄的，system都是要等待的，如果是一个perl 一个A的话，可以这样
#!/usr/bin/perl -w
eval{
  local $SIG{ALRM}=sub{die "alarm\n";};
  alarm 10;
  system('sleep 50');
  alarm 0;
};
if($@ && $@ =~ /alarm/){
local $SIG{INT} = 'IGNORE';
kill INT => -$$;
print "you need\n";
}

b114213903

回复 3# thanatos0

我试了一下，在Windows ActivePerl环境下，可以停止继续等待system执行结束，但调用的程序仍然在后台继续工作。

能不能彻底把调用的程序也退出？

谢谢

thanatos0

回复 4# b114213903

这个是可以杀掉PELR主进程生成的所有子进程，你的杀不掉只能是你的进程不是PERL进程的子进程，你可以自己写个SHELL去system试一下，是可以杀掉的

thanatos0

回复 4# b114213903

wx2wx

回复 2# 华小飞_Perl
是的

wx2wx

回复 5# thanatos0
我按照你的方法这样写的，但是top了一下发现实际上那个loop.pl还是在跑的，并没有被kill掉。。。

1. #!/usr/bin/perl
   
2. use warnings;
   
3. @array=("a".."c");
   
4. $timeout=1;
   
5. foreach $a (@array){
   
6.     for($i=0;$i<10;$i++){
   
7.         eval{
   
8.             local $SIG{ALRM}=sub{
   
9.                 die "timeout\n";
   
10.             };  
    
11.             alarm $timeout;
    
12.             print "$a, $i\n";
    
13.             system("perl loop.pl");
    
14.             alarm 0;
    
15.         };  
    
16.         if($@){
    
17.             print "$@\n";
    
18.             local $SIG{INT}='IGNORE';
    
19.             kill INT => -$;
    
20.             last;
    
21.         }   
    
22.     }   
    
23.     print("now is $a\n");
    
24. }

复制代码

thanatos0

回复 8# wx2wx

你没看你kill少了一个$吗

wx2wx

回复 9# thanatos0

yi?很奇怪，但是我的程序本身确实是有两个$$的，我仔细检查过了