shift inside of for loop

[Luke Bakken]

Hi all,

I've noticed some interesting behavior when trying to shift an array that
you're iterating over. For example:

my @ary = (0..1000);

for (@ary)
{
        if($_ <= 1000)
        {
                shift @ary;
        }
}
print scalar @ary, "\n";

This prints 500 on my NT box with ActiveState perl.  I would naively
expect the shift to shift all elements of the array off, because they all
are less than or equal to 1000.

Am I expecting behavior to be defined that isn't?

Thanks,
Luke Bakken


-- 
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]