Cómo capturar STDOUT y STDERR en dos variables diferentes usando Backticks en Perl

Question

Digamos que quiero ejecutar un programa externo desde mi script con backticks y al mismo tiempo quiero capturar STDOUT y STDERR pero en dos variables diferentes . ¿Cómo puedo hacer eso? Para istance si funciono este script ...

my $cmd = `snmpwalk -v $version -c $community $hostname $oid`; 

... si no hay error todo funciona muy bien, pero si la orden de elevar un error será impreso este error en la línea de comandos y no hacer quiero que eso suceda Quiero capturar el error también. Nada tiene que estar impreso en la pantalla. ¿Algunas ideas?

Answer 1

En el Perl FAQ tienes diferentes opciones dependiendo de cómo quiere proceder:

http://perldoc.perl.org/perlfaq8.html#How-can-I-capture-STDERR-from-an-external-command%3f

Answer 2

La única manera de hacer esto con acentos abiertos es redirigir a un archivo dentro del comando shell:

my $cmd = `snmpwalk -v $version -c $community $hostname $oid 2>error.dat`; 

Si desea capturar el STDERR dentro del guión, es necesario IPC::Open3 en lugar de acentos abiertos

Answer 3

IO::CaptureOutput

es una envoltura muy conveniente para lo que quiere hacer.

Answer 4

No necesita ir hasta open3, que IIRC es solo para cuando necesita leer y escribir en un comando externo, e incluso entonces hay otros métodos.

Para su problema, sugiero usar Capture::Tiny, que puede capturar (o incluso enviar) a STDOUT y STDERR de todo lo que se ejecute dentro de su bloque. Por ejemplo, por su pregunta:

#!/usr/bin/env perl 

use strict; 
use warnings; 

use Capture::Tiny qw/capture/; 

... 

my ($stdout, $stderr) = capture { 
    system ("snmpwalk -v $version -c $community $hostname $oid"); 
}; 

Para otro ejemplo consideran este código funcionamiento:

#!/usr/bin/env perl 

use strict; 
use warnings; 

use Capture::Tiny qw/capture/; 

my ($stdout, $stderr) = capture { 
    system ("echo 'hello'"); 
    system ("date"); 
    warn "Arg1!"; 
}; 

print "STDOUT:\n$stdout"; 
print "STDERR:\n$stderr"; 

la que sólo me dio:

STDOUT: 
hello 
Mon Dec 19 23:59:06 CST 2011 
STDERR: 
Arg1! at ./test.pl line 11.