Re: push in for loop

[jeffa]

in reply to push in for loop

You can accomplish whatever it is you are desiring by using array indices instead:

my @problems = (1,2,3);
for my $i (0 .. $#problems) {
   push @problems, $problems[$i] if $problems[$i];
}

print for @problems;

Care to explain what it is you are trying to accomplish? :)

[Sewi]

I was pretty sure that the array is being build on loopstart.

I got a list of clustered servers and want to load balance between them, but still re-use existing connections. The servers for the current try are within an array. I went through it and pushed all servers the script is connected to onto the list again to double their chances to be selected by the following random selection. I solved the issue using map, but I always like to understand why something isn't working. If it's a known limitation, it's not my fault and (now) I know not to try it :-)

[jeffa]

I am glad you used map, which would be my recommendation for filtering an array. The reason the array is not being completely scanned before the for loop begins is due to memory optimization. You can always explicitly copy the array instead if needed, but it would be a code kludge to have to tell Perl not "build up the array" every time. (That's my take, anyway.)

[NetWallah]

Here is a more 'perlish' alternative to the 'c-style' loop:

my @x=qw|0 1 2 3 4|; 
for my $s( @x[0..$#x] ){ # Slice = entire array
   $s and push @x, $s;
};
print "@x\n"'
#----Output---
#0 1 2 3 4 1 2 3 4