Cách chụp cả hai STDOUT và STDERR trong hai biến khác nhau bằng cách sử dụng Backticks trong Perl

Question

Giả sử tôi muốn chạy một chương trình bên ngoài từ kịch bản của tôi với backticks và đồng thời tôi muốn chụp cả STDOUT và STDERR nhưng trong hai biến khác nhau . Làm thế nào tôi có thể làm điều đó? Đối với istance nếu tôi chạy tập lệnh này ...

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

... nếu không có lỗi, mọi thứ hoạt động tốt NHƯNG nếu lệnh nêu lỗi này sẽ được in trên dòng lệnh và tôi không muốn điều đó xảy ra. Tôi cũng muốn ghi lại lỗi. Không có gì phải được in trên màn hình. Bất kỳ ý tưởng?

Answer 1

Trong Perl FAQ bạn có các tùy chọn khác nhau tùy thuộc làm thế nào để bạn muốn tiếp tục:

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

Answer 2

Cách duy nhất để làm điều này với backticks là để chuyển hướng đến một tập tin bên trong lệnh shell:

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

Nếu bạn muốn chụp các thiết bị lỗi chuẩn bên trong kịch bản của bạn, bạn cần IPC::Open3 thay vì backticks

Answer 3

IO::CaptureOutput

là trình bao bọc rất tiện lợi cho những gì bạn muốn làm.

Answer 4

Bạn không cần phải đi hết đường tới open3, mà IIRC chỉ dành cho thời điểm bạn cần đọc và ghi vào lệnh bên ngoài và thậm chí có các phương pháp khác.

Đối với vấn đề của bạn, tôi đề xuất sử dụng Capture::Tiny, có thể chụp (hoặc thậm chí là tee) STDOUT và STDERR từ bất kỳ thứ gì chạy bên trong khối của nó. Ví dụ, mỗi câu hỏi của bạn:

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

Ví dụ khác xem xét đang hoạt động này:

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

mà chỉ đưa cho tôi:

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