comment on

Just an example of building an iterator with a closure to walk through multiple arrays in parallel (maybe you have a table (2d array) and want to walk the columns). This is just a simple one that runs through the arrays and then resets so it can be used again:

sub parallel_it {
    my @arr_refs = @_;
    my $iter = 0;
    return sub {
        my @return = map{$_->[$iter]}@arr_refs;
        $iter++;
        return @return if grep{defined $_}@return;
        $iter = 0;
        return;
    };
};
my @one   = (0, 1, 2, 3, 4, 5, 6);
my @two   = qw/Sun Mon Tue Wed Thu Fri Sat/;
my @three = qw/Zeroday Oneday Twoday Threeday 
               Fourday Fiveday Sixday/;

my $triples = parallel_it( \(@one,@two,@three) );
while( my($a, $b, $c) = $triples->() ){
    print "$a:$b:$c\n";
}

# update @one and go again
@one = qw/A B C D E F G/;
while( my($a, $b, $c) = $triples->() ){
    print "$a:$b:$c\n";
}

my @table = ( [ 1, undef, 3, 4],
              [ 6, 7,],
              [qw/a b c d e f/],
             );
my $columns = parallel_it(@table);
while( my @col = $columns->() ){
    print join(',', map{ $_ ? $_ : ' ' } @col),"\n";
}
[download]

In reply to looping over multiple arrays by danger

Are you posting in the right place? Check out Where do I post X? to know for sure.
Posts may use any of the Perl Monks Approved HTML tags. Currently these include the following:
<code> <a> <b> <big> <blockquote> <br /> <dd> <dl> <dt> <em> <font> <h1> <h2> <h3> <h4> <h5> <h6> <hr /> <i> <li> <nbsp> <ol> <p> <small> <strike> <strong> <sub> <sup> <table> <td> <th> <tr> <tt> <u> <ul>
Snippets of code should be wrapped in <code> tags not <pre> tags. In fact, <pre> tags should generally be avoided. If they must be used, extreme care should be taken to ensure that their contents do not have long lines (<70 chars), in order to prevent horizontal scrolling (and possible janitor intervention).
Want more info? How to link or How to display code and escape characters are good places to start.


Do you know where your variables are?
	PerlMonks