Reading đầu ra từ lệnh vào Perl mảng

Question

Tôi muốn nhận được đầu ra của một lệnh vào một mảng — như thế này:

my @output = `$cmd`; 

nhưng có vẻ như đầu ra từ lệnh không đi vào mảng @output.

Bất kỳ ý tưởng nào về sự cố?

Answer 1

Enable kiểm tra lỗi tự động:

require IPC::System::Simple; 
use autodie qw(:all); 
⋮ 
my @output = `$cmd`; 

Answer 2

The (tiêu chuẩn) sản lượng không đi đến mảng:

david@cyberman:listing # cat > demo.pl 
#!/usr/bin/perl 
use strict; 
use warnings; 
use v5.14; 
use Data::Dump qw/ddx/; 

my @output = `ls -lh`; 
ddx \@output; 
david@cyberman:listing # touch a b c d 
david@cyberman:listing # perl demo.pl 
# demo.pl:8: [ 
# "total 8\n", 
# "-rw-r--r-- 1 david staff  0B 5 Jun 12:15 a\n", 
# "-rw-r--r-- 1 david staff  0B 5 Jun 12:15 b\n", 
# "-rw-r--r-- 1 david staff  0B 5 Jun 12:15 c\n", 
# "-rw-r--r-- 1 david staff  0B 5 Jun 12:15 d\n", 
# "-rw-r--r-- 1 david staff 115B 5 Jun 12:15 demo.pl\n", 
# ] 

Answer 3

kịch bản đơn giản này làm việc cho tôi:

#!/usr/bin/env perl 
use strict; 
use warnings; 

my $cmd = "ls";  
my @output = `$cmd`;  
chomp @output; 

foreach my $line (@output) 
{ 
    print "<<$line>>\n"; 
} 

Nó được sản xuất đầu ra (trừ dấu chấm ba):

$ perl xx.pl 
<<args>> 
<<args.c>> 
<<args.dSYM>> 
<<atob.c>> 
<<bp.pl>> 
... 
<<schwartz.pl>> 
<<timer.c>> 
<<timer.h>> 
<<utf8reader.c>> 
<<xx.pl>> 
$ 

Đầu ra của lệnh được chia trên ranh giới dòng (theo mặc định, trong ngữ cảnh danh sách). chomp xóa các dòng mới trong phần tử mảng.