perl – 同时打印到stdout和文件

发布时间：2020-12-15 23:37:45 所属栏目：大数据来源：网络整理

导读：参见英文答案 Perl: Print on the “display” and also into a file????????????????????????????????????4个我有一个带有几个print语句的Perl脚本.有没有办法可以将所有这些打印语句同时指向文件以及stdout而不重复打印语句？解决方法你可以使用 File::

参见英文答案 > Perl: Print on the “display” and also into a file????????????????????????????????????4个
我有一个带有几个print语句的Perl脚本.有没有办法可以将所有这些打印语句同时指向文件以及stdout而不重复打印语句？

解决方法

你可以使用 File::Tee.

use File::Tee qw(tee);

tee STDOUT,'>>','some_file.out';

print "w00p w00p";

如果File :: Tee不可用,则可以使用管道轻松模拟：

open my $tee,"|-","tee some_file.out";
print $tee "w00p w00p";
close $tee;

（编辑：李大同）

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