如何在反引号中刷新输出在Perl中？

发布时间：2020-12-15 21:53:39 所属栏目：大数据来源：网络整理

导读：如果我有这个perl应用程序： print `someshellscript.sh`; 打印一堆东西需要很长时间才能完成,如何在执行shell脚本的过程中打印输出？看起来Perl只会在完成后打印someshellscript.sh结果,有没有办法在执行过程中进行输出刷新？解决方法您可能想要做的是这

如果我有这个perl应用程序：

print `someshellscript.sh`;

打印一堆东西需要很长时间才能完成,如何在执行shell脚本的过程中打印输出？

看起来Perl只会在完成后打印someshellscript.sh结果,有没有办法在执行过程中进行输出刷新？

解决方法

您可能想要做的是这样的事情：

open(F,"someshellscript.sh|");
while (<F>) {
    print;
}
close(F);

这会运行someshellscript.sh并打开一个读取其输出的管道. while循环读取脚本生成的每行输出并打印出来.有关更多信息,请参见open文档页面.

（编辑：李大同）

【声明】本站内容均来自网络，其相关言论仅代表作者个人观点，不代表本站立场。若无意侵犯到您的权利，请及时与联系站长删除相关内容!