在 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)）