Beefy Boxes and Bandwidth Generously Provided by pair Networks
good chemistry is complicated,
and a little bit messy -LW

Re: can we pass two variable to foreach loop

by grinder (Bishop)
on Mar 28, 2007 at 06:36 UTC ( #606919=note: print w/replies, xml ) Need Help??

in reply to can we pass two variable to foreach loop

Taking n elements of an array at a time is about the only truly useful purpose to which a C-style for loop in Perl may be put. That said, beware of the last iteration of the loop. If the number of elements in the list divided by the number taken each turn leaves a remainder, the last iteration will come up short and you'll have to test whether the element pointed to by the index is defined or not. For instance 5 elements taken 2 at a time gives 1 element left over in the last time through the loop.

On the other hand, if you don't mind emptying out the array by removing the n elements at a time, then splice will work as well, and as an added bonus, if the final iteration comes up short, splice will simply return fewer elements. If you use them as an array you're fine. Then again, if you need to distinguish them individually, you'll have to test how many splice gave you.

use strict; use warnings; my @arr = ('a' .. 'z', 'Z'); # non-destructively for (my $i = 0; $i < @arr; $i += 2) { print "$arr[$i] $arr[$i+1]\n"; } # destructively while (my @pair = splice(@arr, 0, 2)) { print "@pair\n"; }

• another intruder with the mooring in the heart of the Perl

Log In?

What's my password?
Create A New User
Node Status?
node history
Node Type: note [id://606919]
and all is quiet...

How do I use this? | Other CB clients
Other Users?
Others examining the Monastery: (5)
As of 2018-06-22 13:46 GMT
Find Nodes?
    Voting Booth?
    Should cpanminus be part of the standard Perl release?

    Results (124 votes). Check out past polls.