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

发布时间：2020-12-15 21:15:14 所属栏目：大数据来源：网络整理

导读：请考虑以下脚本： 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);} 在这

请考虑以下脚本：

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：”消息.如果我从分叉的孩子中删除睡眠呼叫,则立即打印.为什么分叉的孩子必须退出管道以冲洗父母？

解决方法

有两个问题.首先,子进程正在缓冲其输出;第二,父进程正在使用<>运算符,它阻塞直到完整的行可用,或直到文件结束.

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

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

刷新是必要的,因为管道(通常)是无缓冲的,而不是通常作为连接到终端的流进行行缓冲.

第三种方法是将子进程的输出流设置为autoflush：

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

（编辑：李大同）

【声明】本站内容均来自网络，其相关言论仅代表作者个人观点，不代表本站立场。若无意侵犯到您的权利，请及时与联系站长删除相关内容!