多进程的应用程序，用system调用遇到的麻烦问题。

hn_weicr

1、第三方的程序以以下的方式启动
scout -r A -n 30 -l  scout_start.log
启动后生成30个进程。
在perl中用
system("scout -r A -n 30 -l  scout_start.log ")怎么都不能成功，
只能启动2个或3个进程。
这个问题现在还没有办法解决。请各位帮忙。

注：我不能直接用exec 的方法，主程序在执行这个命令后还有很多逻辑工作要做。

2、用
system "kill -9 `ps -ef | grep scout |grep -v grep  awk '{print \$2}'`";
也是怎么也杀不掉以上程序生成的全部30个进程，只能杀掉一部分
但用
@array=`ps -ef | grep scout |grep -v grep  awk '{print \$2}'`;
foreach $i (@array)
{ $cmd="kill -9 $i";
   system($cmd);
}
却可以成功kill掉所有的30个进程。
为什么？？？

hn_weicr

回复 1# hn_weicr
第一个问题急着要解决，请大家帮忙呀。。。。。。。

toniz

SYSTEM会等待子进程返回 ，你使用qx{} 试试

hn_weicr

第三方的程序应该是父进程fork 30个子进程的。
system 这样调应该没有问题呀。
会不会是perl的机制不支持呢。。。。
郁闷中。

qx() 与``也不行呀。放到后台一样不行 &

toniz

那你直接用FORK+EXEC吧。

hn_weicr

system 本身就是fork exec waitid呀

toniz

对于PERL来说，system不是等于 fork+exec+pid,虽然FORK和SYSTEM都调用PerlProc_fork这个函数，不过system会多做一步处理，就是定义一个管道。