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;
[download]

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

L-LL-L--L-LL-L--L-LL-L--
-R--R-RR-R--R-RR-R--R-RR
B--B--B--B--B--B--B--B--
H---H---H---H---H---H---
(the triplet paradiddle with high-hat)

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
[download]

            "XML is like violence: if it doesn't solve your problem, use more."

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 :-)

---

Try out Padre - the free Perl IDE and visit my blog's Perl section.

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.)

jeffa

L-LL-L--L-LL-L--L-LL-L--
-R--R-RR-R--R-RR-R--R-RR
B--B--B--B--B--B--B--B--
H---H---H---H---H---H---
(the triplet paradiddle with high-hat)

my @problems = (1,2,3);
for my $problem (@problems) {
   push @problems, $problem if $problem;
}
[download]

That should probably be written as:

my @problems = ( 1, 2, 3 );
push @problems, grep $_, @problems;
[download]

You could try the repetition operator, eg:

my @problems = (1 .. 3);
@problems = (@problems) x 2;
say "@problems";
[download]