learning Perl - the "shift" function stops half way through

[Spungo]

nevermind figured it out. sorry!




I might as well say what I was doing and what was wrong.

foreach (@array) {
   $number = shift @array;
   .....stuff....
}

It'll stop half way through because it's shortening the array each time it loops.

 

[MrDudeMan]

In case you're interested in other syntactic-sugar, these solutions would have also worked:

foreach (@array) { #could also be 'for' instead of 'foreach'
    print;   # uses the built-in variable '$_'
}

foreach $x (@array) {
    print $x;
}

If you need an index:

foreach $i (0 .. $#array) {
    print @array[$i];
}

for($i = 0; $i < @array; $i++) {
    print @array[$i];
}

There are advantages and disadvantages to each approach.