Re: Rosetta code: Split an array into chunks

[muba]

in reply to Rosetta code: Split an array into chunks

muba@localhost ~ $ cat rosetta
sub chunky {
    my ($n, @l) = @_;    
    my @f = ( ( (' ')x ($n-1)), "\n");
    my $str = '';
    $str .= shift(@l) . do {push(@f, shift @f); @l ? $f[-1] : ""} whil
+e @l;
    return "$str\n";

}
print chunky 3, qw(a bb c d e f g h);

muba@localhost ~ $ perl rosetta
a bb c
d e f
g h
muba@localhost ~ $