perl，没有“打开”的子进程

Question

您好，我遇到了 perl 脚本返回“No child process found at”的问题...

我的脚本调用了几种不同类型的 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 调用分叉的子进程，以便关闭不知道如何处理文件句柄？或者我可以 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 on a handle* 因此打开的句柄调用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};
      }
   }
};

---

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