同时打印到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;