Come catturare STDOUT e STDERR in due variabili diverse usando Backtick in Perl

Question

Diciamo che voglio eseguire un programma esterno dal mio script con i backtick e allo stesso tempo voglio catturare sia STDOUT che STDERR ma in due variabili diverse . Come lo posso fare? Per istance se corro questo script ...

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

... se non v'è tutto l'errore funziona bene, ma se il comando genera un errore questo errore verrà stampato sulla riga di comando e io no voglio che ciò accada. Voglio catturare anche l'errore. Nulla deve essere stampato sullo schermo. Qualche idea?

Answer 1

Nel Perl FAQ si hanno diverse opzioni a seconda come si vuole procedere:

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

Answer 2

L'unico modo per fare questo con apici inversi è quello di reindirizzare a un file all'interno del comando della shell:

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

Se si desidera catturare lo STDERR all'interno dello script, è necessario IPC::Open3 invece di apici inversi

Answer 3

IO::CaptureOutput

è un wrapper molto conveniente per ciò che si desidera fare.

Answer 4

Non è necessario andare fino a open3, che IIRC è solo per quando è necessario leggere e scrivere su un comando esterno, e anche in questo caso ci sono altri metodi.

Per il tuo problema ti suggerisco di usare Capture::Tiny, che può catturare (o anche tee) lo STDOUT e lo STDERR da qualsiasi cosa venga eseguito all'interno del suo blocco. Ad esempio, secondo la vostra domanda:

#!/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"); 
}; 

Per un altro esempio si consideri questo codice funzionamento:

#!/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"; 

che mi ha dato:

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