如何从 Perl 中的多维数组中获取每个第一个元素？

Question

我有一个多维（2D）@array。

我编写了以下代码从每个嵌套数组中获取第一个元素：

use strict;
use warnings;
use Data::Dumper;

my @array = (
    [ '/dev/vg00/lvol6', 114224,  46304,   67920,   '41%', '/home' ],
    [ '/dev/vg00/lvol7', 8340704, 4336752, 4003952, '52%', '/opt' ],
    [ '/dev/vg00/lvol4', 520952,  35080,   485872,  '7%',  '/tmp' ],
);

my @new_array;

foreach (@array) {
    push @new_array, @$_[0];
}

是否有更好或更快的方法（例如，使用 map 函数）来生成具有以下值的新数组（嵌套数组中的每个第一个元素/值）：

$VAR1 = [
          '/dev/vg00/lvol6',
          '/dev/vg00/lvol7',
          '/dev/vg00/lvol4'
        ];

附言。对于一个琐碎的问题，我很抱歉，但是今天（星期一早上）我今天脑子里一片空白。

Answer 1

使用map, and click here for the perldoc

use strict; 
use warnings;
use Data::Dumper;

my @array = (
             ['/dev/vg00/lvol6', 114224, 46304, 67920, '41%', '/home'],
             ['/dev/vg00/lvol7', 8340704, 4336752, 4003952, '52%', '/opt'],
             ['/dev/vg00/lvol4', 520952, 35080, 485872, '7%', '/tmp']
            );

my @new_array = map { $_->[0] } @array; 

print Dumper(\@new_array);

打印出来：

$VAR1 = [
      '/dev/vg00/lvol6',
      '/dev/vg00/lvol7',
      '/dev/vg00/lvol4'
    ];

Answer 2

my @new_array = map $_->[0], @array;

虽然map 可能不是更快的选择，

my @array = (
      ['/dev/vg00/lvol6', 114224, 46304, 67920, '41%', '/home'],
      ['/dev/vg00/lvol7', 8340704, 4336752, 4003952, '52%', '/opt'],
      ['/dev/vg00/lvol4', 520952, 35080, 485872, '7%', '/tmp']
);
sub umap {
  my @new_array = map $_->[0], @array;
  return;
}
sub ufor {
  my @new_array;
  foreach (@array) {
      push @new_array, $_->[0];
  }
  return;
}

use Benchmark qw( cmpthese ) ;
cmpthese( -5, {
    umap => \&umap,
    ufor => \&ufor,
});

结果

         Rate umap ufor
umap 691765/s   -- -14%
ufor 804475/s  16%   --