同时打印到stdout和文件

Question

我有一个包含多个print语句的Perl脚本。有没有办法可以将所有这些打印语句同时指向文件以及stdout而不重复打印语句？

Answer 1

您可以使用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;