¿Cómo puedo imprimir en una variable en lugar de un archivo, en Perl?

Question

¿Cómo puedo imprimir una variable con Perl?

He estado trabajando en un programa durante un tiempo que registra su iterativo el progreso de una manera muy prolijo ...

print $loghandle $some_message; 

Sin embargo, me gustaría también imprimir selectivamente algunas de las mensajes a un archivo diferente. Naturalmente, podría rociar el código con ...

print $loghandle $some_message 
print $otherloghandle $some_message 

O reescribir todo el asunto en una función. Paja.

Lo que quiero hacer es hacer un poco de magia cuando abro el $ loghandle de manera que cuando estoy print 'ing, en realidad estoy simplemente haciendo una operación sprintf ish contra una variable (llámese $current_iteration), de manera que cuando llegue a un punto de decisión que pueda hacer algo como esto ...

print $real_log_file $current_iteration; 
print $other_real_log_file $current_iteration if($condition); 

estoy bastante seguro de que he visto algo como esto en alguna parte, pero no tengo ni idea de dónde está o dónde buscar .

editar: File :: Tee resuelve este problema hasta cierto punto en * nix, pero corro en Windows.

Answer 1

se puede tratar a una variable escalar como un gestor de archivo por open ing que:

open my $fh, '>', \$variable or die "Can't open variable: $!"; 
print $fh "Treat this filehandle like any other\n"; 

incluso se puede asignar la salida estándar o stderr a una escalar:

close STDOUT; 
open STDOUT, '>', \$variable or die "Can't open STDOUT: $!"; 

Si usted w Para dividir su salida o configurar un archivo de configuración para hacer cosas "interesantes" con su registro, es mejor que lo haga con Log4Perl, como han sugerido otros.

Answer 2

Puede usar File::Tee para dividir un manejador de archivos en múltiples flujos de salida.

use File::Tee; 
open my $fh, '>', 'logfile.txt' or die $!; 
tee($fh, '>', 'otherlogfile.txt') if $condition; 

print $fh $current_iteration; # will also go to otherlogfile.txt 
           # if $condition was true 

Answer 3

Parece que usted quiere tie su identificador de archivo.

my $x; 

# printing to $fh will update the variable $x 
# when you close $fh, it will print $x to a filehandle depending 
# on code in the function Print_to_variable::CLOSE 

tie $fh, "Print_to_variable", \$x, $output_fh1, $output_fh2; 
print $fh "stuff"; 
print $fh "more stuff"; 
close $fh; 

sub Print_to_variable::TIEHANDLE { 
    my ($class, $ref, $fh1, $fh2) = @_; 
    my $self = {}; 
    $self->{ref} = $ref; 
    $self->{output_fh1} = $fh1; 
    $self->{output_fh2} = $fh2; 
    bless $self, "Print_to_variable"; 
    $self; 
} 
sub Print_to_variable::PRINT { 
    my ($self,@list); 
    ${$self->{ref}} .= join "", @list; 
} 
sub Print_to_variable::CLOSE { 
    my $self = shift; 
    my $text = ${$self->{ref}}; 
    if (&myCondition1($text)) { # ... how you decide where to print 
     print {$self->{output_fh1}} $text; 
    } else { 
     print {$self->{output_fh1}} $text; 
    } 
} 

Answer 4

Perlfaq5 recomienda Tie::FileHandle::Multiplex para imprimir en varios archivos.

La fuente es muy simple y debería ser fácil de modificar con un filtro por manejador.

Answer 5

¿Te refieres a algo así como IO::Scalar? Le permite escribir en una variable con semántica de manejo de archivos.

Answer 6

Esto es tremendo truco, y creo que la solución de mobrule o (especialmente) la solución de Sinan de Log4Perl son el camino a seguir cuando tengo tiempo.

Pero, esto es lo que estoy usando, como una cosa completado:

sub print_to_var($$) { 
    my($rx_var, $scalar) = @_; 
    $$rx_var .= $scalar; 
} 


print_to_var \$logvar, $message; 

#...later on... 
print $somefile $logvar; 

Editar:

Dado que esta es la comunidad wiki, vale la pena nada de lo que Perl alias argumentos de funciones. Eso significa que usted puede escribir esto:

sub print_to_var($$) { 
    $_[0] .= $_[1]; 
} 

y luego decir:

my $foo = "OH HAI. "; 
print_to_var $foo, "I ARE HELO KITTIE."; 
say $foo; # OH HAI. I ARE HELO KITTIE. 

Esto no es particularmente un tremendo corte, aunque es print_to_var lleva mucho más trabajo que es ..

Y aquí es el KITTIE HELO:

helo kittie http://blogs.philadelphiaweekly.com/style/files/2008/11/hello-kitty-color.gif

Answer 7

Si desea hacer un registro selectivo donde puede controlar qué mensajes se registran y dónde se registran, use Log::Log4perl. Eso le ahorrará un montón de tiempo al jugar con tie sy otras magias negras.