in reply to
Re^2: How to return a list using recursion?
in thread How to return a list using recursion?
With older versions of Perl, it can be rewritten as a proper iterator :-)
use strict;
use warnings;
my @list = ('a' .. 'z');
my $size = 5;
my $chunker = _array_chunk_it($size, @list);
while (my @chunk = $chunker->())
{
print "Array chunk of $size =\n", join("\n", @chunk), "\n\n";
}
sub _array_chunk_it {
my ($count, @array) = @_;
return sub {
my @chunk;
for (1 .. $count) {
push(@chunk, shift @array) if @array;
}
return @chunk;
}
}
(Using a closure we can actually call _array_chunk_it multiple times, in an overlapping manner. Have multiple iterators running simultaneously. Plus it looks quite a bit nicer.)
