perl - 如何打印每行带有分隔符的 N 个数组元素？

Question

我在 Perl 中有一个数组，我想打印每个元素之间的空格分隔符，除了每 10 个元素应该用换行符分隔。如果重要的话，元素中没有任何空格。

我已经编写了一个函数来使用 for 和一个计数器，但我想知道是否有更好/更短/规范的 Perl 方式，也许是特殊的连接语法或类似的。

我的函数来说明:

sub PrintArrayWithNewlines
{
    my $counter = 0;
    my $newlineIndex = shift @_;

    foreach my $item (@_)
    {
        ++$counter;
        print "$item";
        if($counter == $newlineIndex)
        {
            $counter = 0;
            print "\n";
        }
        else
        {
            print " ";
        }
    }
}

Answer 1

我喜欢splice对于这样的工作:

sub PrintArrayWithNewlines {
    my $n = 10;
    my $delim = " ";
    while (my @x = splice @_, 0, $n) {
        print join($delim, @x), "\n";
    }
}