perl - 同时打印到标准输出和文件

Question

我有一个带有多个打印语句的 Perl 脚本。有没有一种方法可以将所有这些打印语句同时定向到文件以及标准输出而不复制打印语句？

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;