为什么我用 Perl 的 system() 启动的进程不是子进程？

Question

Perl的system()启动一个进程，但破坏了父/子关系？

test.pl：test.sh

use POSIX;

system("./test.sh &");

my $pid = `ps -C test.sh -o pid=`;

print "pid: -$pid-\n";

waitpid($pid, 0);

：

while true
do
    sleep 1
done

当我运行test.pl时，它找到并打印test.sh的正确pid。 但 waitpid() 返回 -1 并且 test.pl 退出。 test.pl存在后，test.sh仍在运行。

看起来 test.sh 不是 test.pl 的子项，这会破坏 waitpid()。 为什么会发生这种情况以及如何使 system() 表现出来？ 这是因为 Perl 自动清除子进程吗？ 如果是，我该如何解决显式等待孩子的一般任务？

更新：

下面的答案建议使用 fork/exec。 最初的问题是这样的：

1. 从 Perl 脚本中运行启动服务的命令行实用程序。 该实用程序退出，但服务保留。

2. 一段时间后，找到该服务的 pid 并等待它。

fork/exec 并没有解决这个问题，尽管它澄清了这个问题。

Answer 1

一般来说，如果你不想 Perl 帮忙，你应该手动 fork 和 exec
你出去。 很难确定你到底在做什么，但我
认为你想要这个：

my $pid = fork;
unless($pid){
    # child;
    exec(qw/sh test.sh/);
}

# parent
...
waitpid $pid, 0;

就个人而言，我更喜欢让 AnyEvent 照顾：

my $done = AnyEvent->condvar;

my $pid = fork;

unless( $pid ) { ... }

my $w = AnyEvent->child (
   pid => $pid,
   cb  => sub {
      my ($pid, $status) = @_;
      warn "pid $pid exited with status $status";
      $done->send;
   },
);

$done->recv; # control resumes here when child exits

或者，更一般地说： http ://github.com/jrockway/anyevent-subprocess/tree/master

Answer 2

为了进一步解释 Liudvikas 的答案 -

system("./test.sh &")
 |
 |--> (P) /bin/sh (to run test.sh)
       |
       |--> (P) test.sh & (still running)

(P) - process

在分叉并运行 test.sh 脚本后，/bin/sh shell（Perl 系统调用的子级）退出，因此您从 waitpid() 获得 -1 返回值。

Answer 3

test.sh 进程不是您的子进程。 system() 分叉了一个 shell（这是你的子 shell），该 shell 分叉了一个运行 test.sh 程序的子 shell。 你孩子的外壳退出了。

Answer 4

您可能想要做的是这样的：

my $pid = fork || exec './test.sh';
print "pid: -$pid-\n";
waitpid($pid, 0);

尽管由于 shell 脚本处于无限循环中，所以它将永远等待。