如何获得Perl管道的输出？

以下代码工作正常：

open( PIPE,'-|','ant' );
for( <PIPE> ) {
    print;
}

但是,它没有做我想要的.由于Ant构建可能需要5分钟,我希望逐行看到输出.
相反,我在流程结束时获得了整个输入.

使用Perl调试器查看它,Perl等待’for’语句,直到Ant终止.这是为什么？

解决方法

只是为了完整性(问题在Uri的回答评论中得到解决)问题出现了,因为for表达式评估<>列表上下文中的运算符( see),等效于以下内容：

foreach $line (@lines = <PIPE>) {
    print $line;
}

在列表上下文中,<>运算符尝试从其输入读取所有行以指向列表 – 并且输入来自进程,它将阻塞直到进程结束.只有在它之后它才会进入循环体.

替代语法

while( <PIPE> ) {           
    print; 
}

相当于

while(  $line = <PIPE> ) {
    print $line;
}

即,它在每次循环迭代中消耗来自输入的每一行,这是在这种情况下想要做的事情.

原文地址：https://www.jb51.cc/Perl/171866.html