请考虑以下脚本：
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;
}
刷新是必要的,因为管道(通常)是无缓冲的,而不是通常作为连接到终端的流进行行缓冲.
if ($pid == 0) {
$| = 1;
print "$$\n";
sleep 5;
exit;
}