在Perl中重定向管道的標準輸出

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