多进程问题

panwenbo363

先看代码片段！

my $pid = fork();

   if($pid==0) {
  `one.pl`;       
   exit 0;                             
   }

else {
`two.pl`;
  waitpid (-1, 0);
}

print "ok";

现在问题是：怎么做才能够使子进程运行完了之后主进程才输出"ok"，不可以是子进程还没有运行完，主进程就输出"ok".
各位大侠多多指教！！

panwenbo363

那位大侠好心帮帮忙我吧！

yybmsrs

用wait或者waitpid

你这样写没错啊。。。

[ 本帖最后由 yybmsrs 于 2010-1-27 10:42 编辑 ]

兰花仙子

原帖由 panwenbo363 于 2010-1-27 00:09 发表
先看代码片段！


现在问题是：怎么做才能够使子进程运 ...

http://bbs3.chinaunix.net/thread-1639632-1-3.html

panwenbo363

用wait或者waitpid只是回收子进程尔耳，不能够达到我的目的

panwenbo363

这样的多进程写法，根本就没有做到多进程的并发，跟使用单进程的效率一样。
你这样做的话子进程都是按照顺序的一个一个的完成任务的。

suxingwakeup

不是按照顺序执行，是并发的。

yybmsrs

确实是并发的，你可以把你的代码中的one.pl two.pl换成sleep来看看

兰花仙子

原帖由 panwenbo363 于 2010-1-27 23:26 发表
用wait或者waitpid只是回收子进程尔耳，不能够达到我的目的

selfsmart也就罢了，还倔。
你需要的就是一个wait!

027xiatian

这个应该和perl没有关系吧，可以调用waitpid函数WUNTRACED