Perl，没有子进程 w/"open"

Question

嗨，我遇到了这个问题，perl 脚本返回“在以下位置找不到子进程”...

我的脚本调用几种不同类型的 fork，因此我尝试实现 perldoc 的 waitpid() 实现方法，以便能够同时使用句柄 fork & exec & system & qw。

 $SIG{CHLD} = sub {
    # don't change $! and $? outside handler
    local ($!, $?);
    my $pid = waitpid(-1, WNOHANG) > 0;
    return if $pid == -1;
    return unless defined $children{$pid};
    delete $children{$pid};
};

    my $pid = fork();
    die "cannot fork" unless defined $pid;
    if ($pid == 0) {
        # ...
        exit 0;
    } else {
        $children{$pid}=1;
        # ...
        exec($command);
   }

这部分代码的执行没有问题，但是当我尝试关闭文件句柄的 CLOSE 时，会出现“未找到子处理器”的情况。有人可以向我解释一下为什么会发生这种情况，因为我真的想更深入地了解这个问题。我最终是否会收获由 OPEN 调用 fork 的子进程，以便 close 不知道如何处理文件句柄？或者也许我100%折扣。任何解决方案将不胜感激

open(RESULTS, "-|", "find $dir\/ -maxdepth 1 -name RESULTS -print0 | xargs -0 cat ") or die $!;
while(<RESULTS>){
if($_ =~ /match/){
    print $_;
 }
  }
 close RESULTS;

Answer 1

打开的句柄上的

close 会调用 waitpid 来获取由 open 创建的子进程。但是，您的信号处理程序设法在 close 之前获取子级，因此 close 无法找到子级，因此 close 返回错误。

您可以通过将信号处理程序更改为仅获取您使用 fork 创建的子级(如下)来解决此问题，或者您可以在 close 中忽略该错误。

$SIG{CHLD} = sub {
   local ($!, $?, $^E);
   for my $pid (keys(%children)) {
      if (waitpid($pid, WNOHANG) > 0) {
         delete $children{$pid};
      }
   }
};

---

* — 正确的术语是“文件句柄”。之所以如此命名，是因为它允许您保留文件。它不是处理程序，因为它不执行任何操作。