perl程序fork的问题

[xxjnetwork]

#!/usr/bin/env perl
use Parallel::ForkManager;
my @a= (1,2,3);
my $pid = fork();
if ($pid == 0){
    print "I'm child:$$\n";
    my $pm = new Parallel::ForkManager(4);
    foreach (@a){
        $pm->start and next;
        my $cmd = "cat <a.pl 1>tmp_$_ 2>&1";
        my $ret = system($cmd);
        if (-e "tmp_$_"){
            print "$$\n";
        }
        $pm->finish;
    }
    $pm->wait_all_children;
    exit 1;
}
else{
    print "parent process xxxxxxxx\n";
}

为什么这个程序执行完后需要再敲一次回车才完成

问题二：
最近做一个perl模块，调用了Parallel::ForkManager模块，发现总是block在wait_all_children, 请教各位大神原因
我有个perl程序会fork一个子进程，在这个子进程我又调用了ForkManager模块来实现并行,并行的内容就是调用system执行一个命令。
补充：子进程都能执行完，但是父进程一直在wait_all_children这等着，我怀疑是不是waitpid的问题
补充：

[xxjnetwork]

另外，很多人喜欢$SIG{CHLD} = sub funcxx{xxxxxxxxxx}这样的方式来做，包括perl网络编程也会这么讲，perl初学者表示疑惑的问问， SIGCHLD是不可靠信号，如果多个子进程同时结束，都会发送这个信号，父进程如果此时正在处理一个SIGCHLD，那么其他SIGCHLD应该是会被压缩吧，这样导致部分信号丢失。对外的表现可能就是，我有4个子进程调用，实际完成后可能就调了3次funcxx。这个问题是正确的么

[panghuhu250]

1. 实际上所有的进程都退出了，只是有一些输出落在提示符后，才给人一种还没完成的错觉。 验证：开两个terminal，一个运行perl程序，另一个用来检测正在运行的perl程序。 A. 一开始，运行“pgrep perl”，在我的机器上返回空值，表示没有perl程序在运行。 B. 运行你的perl程序， 让它保持在“运行”状态。 C. 转到另一个terminal，运行“pgrep perl”，看看有没有多余的（相比A步的结果）perl进程在运行。我得到的结果是没有。 2. 没代码，没真相。 SIGCHLD的问题，我不懂，也没搜到。但建议你可以自己写一个小程序测试一下。用sleep模拟一个耗时很长的SIGCHLD handler，同时发送几个SIGCHLD信号看看。把结果贴出来，以后再有人有这个问题，就能找到答案了。

[xxjnetwork]

引用 1 楼 xxjnetwork 的回复:

另外，很多人喜欢$SIG{CHLD} = sub funcxx{xxxxxxxxxx}这样的方式来做，包括perl网络编程也会这么讲，perl初学者表示疑惑的问问， SIGCHLD是不可靠信号，如果多个子进程同时结束，都会发送这个信号，父进程如果此时正在处理一个SIGCHLD，那么其他SIGCHLD应该是会被压缩吧，这样导致部分信号丢失。对外的表现可能就是，我有4个子进程调用，实际完成后可能就调了3次funcxx。这个问题是正确的么

回答的非常好哦。 第二个问题的代码我整理下再贴看看吧