perl - 将命令的输出读入 Perl 数组

Question

我想将命令的输出放入一个数组中——像这样:

my @output = `$cmd`;

但似乎命令的输出没有进入 @output大批。

知道它去哪里了吗？

Answer 1

这个简单的脚本对我有用:

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

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

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

它产生了输出(三点除外):

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

命令的输出在行边界上拆分(默认情况下，在列表上下文中)。 chomp删除数组元素中的换行符。