Perl 管道挂起，进程失效

Question

我有一个使用管道执行另一个脚本的 perl 脚本：

$pid = open (OUTPUT, "my_script.pl 2>&1 |") || "";
if ($pid) {
  while (<OUTPUT>) {
    print;
  }
  close (OUTPUT);
}

my_script.pl fork 另一个子进程。当我首先杀死my_script.pl，然后杀死它的子进程（我使用kill -9 手动杀死这些进程），然后my_script.pl 进程变为无效并且管道挂起。 知道如何解决这个问题吗？

我不想先杀死子进程。

Answer 1

当程序退出时，它会变成僵尸（已失效的进程），直到其父进程（通过调用 wait）收割它。^[1] 如果进程完全消失，程序将不会能够获得子进程的退出代码。这是完全正常的，不是问题。

1. 孤儿（包括僵尸孤儿）被进程 1 收养，当他们完成时，它会立即收割它的孩子。