如何在Perl中反引号中的输出刷新? [英] How to flush output in backticks In Perl?
问题描述
如果我有这个perl应用程序:
If I have this perl app:
print `someshellscript.sh`;
可以打印很多东西,并且需要很长时间才能完成,我该如何在在shell脚本执行的中间?
that prints bunch of stuff and takes a long time to complete, how can I print that output in the middle of execution of the shell script?
看起来像Perl只会在完成时打印someshellscript.sh结果,有没有办法在执行过程中刷新输出?
Looks like Perl will only print the someshellscript.sh result when it completes, is there a way to make output flush in the middle of execution?
推荐答案
您可能想做的事情是这样的:
What you probably want to do is something like this:
open(F, "someshellscript.sh|");
while (<F>) {
print;
}
close(F);
这将运行 someshellscript.sh
并打开一个读取其输出的管道。 while
循环读取脚本生成的每一行输出并进行打印。有关更多信息,请参见打开文档页面。
This runs someshellscript.sh
and opens a pipe that reads its output. The while
loop reads each line of output generated by the script and prints it. See the open documentation page for more information.
这篇关于如何在Perl中反引号中的输出刷新?的文章就介绍到这了,希望我们推荐的答案对大家有所帮助,也希望大家多多支持IT屋!