perl - 为什么我的父进程在退出之前看不到子进程的输出？

Question

考虑以下脚本:

use IO::File;
$| = 1;
my ($handle, $pid) = myPipe();
if ($pid == 0) {
  print "$$";
  sleep 5;
  exit;
}

print "child: ".<$handle>."\n";

sub myPipe {
  my $handle = new IO::File();
  my $pid = open($handle, "-|");
  return ($handle, $pid);
}

在这种情况下，进程开始后 5 秒内不会出现“child:”消息。如果我从 fork 的 child 那里删除 sleep 电话，那么它会立即打印。为什么 fork 的 child 必须退出管道才能刷新到 parent ？

Answer 1

有两个问题。首先，子进程正在缓冲其输出；其次，父进程正在使用 <>运算符，它会阻塞直到有完整的行可用，或者直到文件结束。

因此，获得您期望的结果的一种方法是让子进程在写入后立即关闭其输出流:

if ($pid == 0) {
    print "$$";
    close STDOUT;
    sleep 5;
    exit;
}

另一种方法是在子进程的输出中添加一个换行符，然后刷新流:

if ($pid == 0) {
    print "$$\n";
    STDOUT->flush;  # "close STDOUT;" will work too, of course
    sleep 5;
    exit;
}

刷新是必要的，因为管道(通常)是无缓冲的，而不是像连接到终端的流通常是行缓冲的。

第三种选择是将子进程的输出流设置为自动刷新:

if ($pid == 0) {
    $| = 1;
    print "$$\n";
    sleep 5;
    exit;
}