Modifying Array inside While statement

[Anno Siegel]

(e-mail address removed) wrote:

for ( reverse 0..$#my_array) {
unshift @new_array, splice @my_array, $_, 1 if $my_array[$_] =~
/new/;
}

Or:

push @{ /new/i ? \@new_array : \@my_array }, $_ for splice @my_array;

Ah... splice with just an array clears the array and returns a copy. I never
noticed.

Anno

 

[robic0]

(e-mail address removed) wrote:

for ( reverse 0..$#my_array) {
unshift @new_array, splice @my_array, $_, 1 if $my_array[$_] =~
/new/;
}

Or:

push @{ /new/i ? \@new_array : \@my_array }, $_ for splice @my_array;

Ah... splice with just an array clears the array and returns a copy. I never
noticed.

Anno

Leaving this bomb for the next programmer is surely inspirational