Re: Looping through multiple arrays

[karlgoethebier]

Yet another addendum:

If you really want to use an iterator using List::MoreUtils, perhaps because you think that it might perform better then using for - according to the pure doctrine, you could try something like this:

#!/usr/bin/env perl

use strict;
use warnings;
use List::MoreUtils qw (natatime);
use feature qw (say);
use Data::Dump;

my @x = qw( a b c );
my @y = qw( a b );
my @z = qw( a b c d );

dd \@x, \@y, \@z;

my $iterator = natatime 1, ( @x, @y, @z );

while ( my $value = $iterator->() ) {
    say $value;
}

__END__

karls-mac-mini:monks karl$ ./1118875.pl 
(["a", "b", "c"], ["a", "b"], ["a" .. "d"])
a
b
c
a
b
a
b
c
d

Best regards, Karl

[parv]

Nothing more than a point on style ... interesting placement of () (in that nata-time function); I write that as ...

my $iter = natatime( $chunk_size , @x , @y ... );

[karlgoethebier]

"... a point on style...interesting placement of ()"

Perlish ;-)

"Variatio delectat" ([transl. Diversity delights] Cicero)