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

在Perl中重定向管道的STDOUT

io-redirection pipe perl

Jon Purdy · 技术社区 · 15 年前

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

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

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

1 回复 | 直到 15 年前

Ben Jackson 15 年前

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

推荐文章

James Finnegan · DateTime对象只能与另一个DateTime对象进行比较

1 年前

con · Negative Lookaward在perl正则表达式中不起作用

1 年前

Carsten · 使用最近的搜索模式更改文本块

1 年前

Mario Palumbo · 是否有bash-perl快捷方式来计算每行中的匹配数?

1 年前

Rawley Fowler · 我可以在Perl中为警告生成堆栈跟踪吗?

1 年前

A.Ellett · 测试-t STDIN与-t<STDIN>

1 年前

nick · 向后交换文件名

1 年前

Sangyong Gwak · 如何更改Perl Kelp应用程序的app_url

1 年前

con · 如何跳转到foreach迭代的特定点?

2 年前

A.G.Progm.Enthusiast · 如何使用Perl中的拼接从数组中一次性删除随机元素?

2 年前