2

嗨我有这个问题，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 调用分叉的子进程，以便关闭不知道如何处理文件句柄？或者我可以 100% 折扣。任何解决方案将不胜感激

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

1 回答 1

3

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};
      }
   }
};

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

于 2012-10-03T21:11:24.980 回答