perl - stdout とファイルへの同時出力

Question

いくつかの印刷ステートメントを含む Perl スクリプトがあります。print ステートメントを複製せずに、これらすべての print ステートメントを同時に 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;