Perl: Redireccionar la salida estándar a dos archivos

Question

Cómo puedo redirigir el flujo de STDOUT a dos archivos (duplicados) dentro de mi script de Perl? Actualmente solo estoy transfiriendo a un solo archivo de registro:

open(STDOUT, ">$out_file") or die "Can't open $out_file: $!\n"; 

¿Qué debo cambiar? Gracias.

Answer 1

También puede utilizar IO::Tee.

use strict; 
use warnings; 
use IO::Tee; 

open(my $fh1,">","tee1") or die $!; 
open(my $fh2,">","tee2") or die $!; 

my $tee=IO::Tee->new($fh1,$fh2); 

select $tee; #This makes $tee the default handle. 

print "Hey!\n"; #Because of the select, you don't have to do print $tee "Hey!\n" 

Y sí, la salida de obras:

> cat tee1 
Hey! 
> cat tee2 
Hey! 

Answer 2

Si está utilizando un sistema similar a Unix, utilice la utilidad tee.

$ perl -le 'print "Hello, world"' | tee /tmp/foo /tmp/bar 
Hello, world 

$ cat /tmp/foo /tmp/bar 
Hello, world 
Hello, world

Para configurar esta duplicación desde el programa, configurar una tubería de su STDOUT a un proceso externo camiseta. Pasando a "|-"open lo hace fácil de hacer.

#! /usr/bin/env perl 

use strict; 
use warnings; 

my @copies = qw(/tmp/foo /tmp/bar); 

open STDOUT, "|-", "tee", @copies or die "$0: tee failed: $!"; 

print "Hello, world!\n"; 

close STDOUT or warn "$0: close: $!"; 

Demostración:

$ ./stdout-copies-demo 
Hello, world! 

$ cat /tmp/foo /tmp/bar 
Hello, world! 
Hello, world!

Answer 3

File::Tee proporciona la funcionalidad que necesita.

use File::Tee qw(tee); 
tee(STDOUT, '>', 'stdout.txt'); 

Answer 4

Utilice la capa PerlIO tee.

use PerlIO::Util; 
*STDOUT->push_layer(tee => "/tmp/bar"); 
print "data\n"; 

$ perl tee_script.pl > /tmp/foo 
$ cat /tmp/foo 
data 
$ cat /tmp/bar 
data