stdoutとファイルに同時に印刷

Question

私はいくつかのprintステートメントを持つ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;