Równoczesne drukowanie na stdout i plik

Question

Mam skrypt Perla z kilkoma instrukcjami drukowania. Czy istnieje sposób, dzięki któremu mogę skierować wszystkie te instrukcje drukowania do pliku, a także zapisać jednocześnie, bez powielania instrukcji drukowania?

Answer 1

Możesz użyć File::Tee.

use File::Tee qw(tee); 

tee STDOUT, '>>', 'some_file.out'; 

print "w00p w00p"; 

Jeśli File::Tee jest niedostępny, to łatwo symulować z rurociągu:

open my $tee, "|-", "tee some_file.out"; 
print $tee "w00p w00p"; 
close $tee;