代码之家 › 专栏 › 技术社区 › Jon Purdy

在Perl中重定向管道的STDOUT

io-redirection pipe perl

2

Jon Purdy · 技术社区 · 14 年前

我觉得似乎应该有一个简单的方法来做这件事,但到处寻找给我没有好的线索。我只是想 open() STDOUT 调用脚本的。

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

有没有一种简单的方法可以做到这一点,或者我在Perl中碰到过许多“从这里到不了那里”的时刻之一?

1 回复 | 直到 14 年前

1

5

Ben Jackson 14 年前

子进程将自动继承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)

推荐文章

Bananach · Python:contextlib。redirect\u stdout有时无法实时工作

7 年前

YuKangGan · 如何丢弃子进程的stdout,但将stdout保留在父进程中?

9 年前

Regda · 批量-将ECHOed SET定义行重定向到文件将显示该行,而不是将其写入文件

9 年前

sungho · 无法使用“>”重定向到文件

9 年前

user3351901 · 在bash中使用变量作为重定向输出的目录路径

10 年前

punstress · Head First C中代码后面的奇数结果

11 年前