perl - 如何将 Perl 数组划分为大小相等的 block ？

Question

我有一个固定大小的数组，其中数组的大小始终是 3 的因数。

my @array = ('foo', 'bar', 'qux', 'foo1', 'bar', 'qux2', 3, 4, 5);

我怎样才能对数组的成员进行聚类，以便我们可以得到
由 3 组组成的数组数组:

$VAR = [ ['foo','bar','qux'],
         ['foo1','bar','qux2'],
         [3, 4, 5] ];

Answer 1

my @VAR;
push @VAR, [ splice @array, 0, 3 ] while @array;

或者你可以使用 natatime 来自 List::MoreUtils

use List::MoreUtils qw(natatime);

my @VAR;
{
  my $iter = natatime 3, @array;
  while( my @tmp = $iter->() ){
    push @VAR, \@tmp;
  }
}