Question

您好我有这个问题，其中perl脚本吐出“没有找到子进程...”

我的脚本调用了几种不同类型的分支，所以我尝试实现perldoc的waitpid（）实现方法，以便能够使用fork和amp;执行官系统与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调用分叉的子进程，以便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};
      }
   }
};

* - 正确的术语是“file handle ”。它被命名为，因为它允许您保留文件。它不是处理程序，因为它不执行任何操作。

perl，没有子进程w /“open”

1 个答案: