我觉得应该有一个简单的方法来做到这一点，但是四处搜索并没有给我带来好的线索。我只想open()到应用程序的管道，向其中写入一些数据，并将子进程的输出发送到调用脚本的STDOUT。
open(my $foo, '|-', '/path/to/foo');
print $foo 'input'; # Should behave equivalently to "print 'output'"
close($foo);
有没有一种简单的方法可以做到这一点，或者我是否遇到了 Perl 中许多“无法从这里到达那里”的时刻之一？
最佳答案
子进程会自动继承STDOUT。这对我有用:
open(my $f, "|-", "cat");
print $f "hi\n";
如果您没有真正立即关闭管道，则问题可能出在另一端:STDOUT 默认情况下是行缓冲的，因此您会立即看到打印“hello world\n”。默认情况下，通往子进程的管道将是 block 缓冲的，因此您实际上可能正在等待 Perl 脚本中的数据到达其他程序:
open(my $f, "|-", "cat");
print $f "hi\n";
sleep(10);
close($f); # or exit
# now output appears
尝试添加 select $f; $| = 1 (或者我认为更现代的方法是 $f->autoflush(1))
关于perl - 在 Perl 中重定向管道的 STDOUT，我们在Stack Overflow上找到一个类似的问题： https://stackoverflow.com/questions/4114668/