在Perl中重定向管道的STDOUT

Question

我觉得应该有一种简单的方法可以做到这一点，但是四处寻找并没有给我带来好的线索。我只想open()管道到应用程序，向它写入一些数据，并将子进程的输出发送到调用脚本的STDOUT。

open(my $foo, '|-', '/path/to/foo');
print $foo 'input'; # Should behave equivalently to "print 'output'"
close($foo);

有没有一种简单的方法可以做到这一点，还是我在Perl中找到了许多“无法从这里到达那里”的时刻？

Answer 1

子进程将自动继承STDOUT。这对我有用：

open(my $f, "|-", "cat");
print $f "hi\n";

如果您没有立即关闭管道，问题可能在另一端：STDOUT默认是行缓冲的，因此您立即看到print "hello world\n"。默认情况下，子进程的管道将被块缓冲，因此您实际上可能正在等待perl脚本中的数据到达其他程序：

open(my $f, "|-", "cat");
print $f "hi\n";
sleep(10);
close($f); # or exit
# now output appears

尝试添加select $f; $| = 1（或者我认为更现代的方式是$f->autoflush(1)）