linux下perl中的kill和waitpid

kill INT, $pid当$pid所在进程已经结束时返回错误作为kill的返回。但不返回错误不代表终止$pid进程成功，如果刚好在kill时$pid位于前台(有终端相连，并没挂起，如：$pid进程里面没sleep)那么$pid被杀掉，否则$pid在后台不能被终止。

在PERL中，如下使用非阻塞waitpid:

use POSIX ":sys_wait_h";

rt = waitpid($pid, WONHANG)

当$pid已经不存在返回错误给rt, 当$pid成功收获返回>0 pid进程号给rt，否侧返回0给rt. 参考：http://perldoc.perl.org/functions/waitpid.html和UNIX环境高级编程8.6 - wait和waitpid函数

若有多个子进程，且主进程中持有子进程PID列表@pid_lst,可如下确保中断所有子进程：

while($pid = shift @pid){

do{

kill INT, $pid;

print "Trying to kill $pid.....\n";

sleep 0.5                          # 此处主进程挂起时间越短，子进程终止效率越高

}while(waitpid($pid, WONHANG) == 0)

print "$pid already gets killed!!\n"

}