Perl - 拆分数组,并循环遍历其子数组

Question

假设我在Perl中有如下的数组:

@names = ("one", "two", "three", "four", "five", "six");

我想在预定义大小的子数组("块")中循环遍历此数组.更具体地说,我想有一个变量,例如@chunk在我的循环中,在每次迭代中保存相应的子数组:

for ? {
   say @chunk;
}

例如,如果我使用2我的子数组/块大小,我们将迭代3次,并将@chunk在以下内容中保持以下值:

("one", "two")
("three", "four")
("five", "six")

如果我使用4我的块大小,它将只迭代两次,@chunk并将保持:

("one", "two", "three", "four")
("five", "six") # Only two items left, so the last chunk is of size 2

在Perl中是否有任何内置插件/库可以轻松完成此操作？

Answer 1

您可以使用List :: MoreUtils执行此操作natatime(一次读取N个):

my @names = qw(one two three four five six);

# Chunks of 3
my $it = natatime 3, @names;

while (my @vals = $it->())
{
    print "@vals\n";
}

要更改"块"大小,只需将第一个参数更改为natatime:

# Chunks of 4
my $it = natatime 4, @names;