> perl -MO=Deparse -e 'while($x++ < 10){}'
while ($x++ < 10) {
    ();
}
[download]

Now, why is that? Shouldn't that be

for(;$x++ < 10;){}
[download]

then? On the contrary actually:

> perl -MO=Deparse -e 'for(;();){}'
while (()) {
    ();
}
[download]

So, it seems that while is for only for the obvious endless loop, and in other cases for is while (as I had expected...)

However, I am intriqued by the fact that

> perl -MO=Deparse -e 'for($x;$y;$z){()}'
for ($x; $y; $z) {
    ();
}
[download]

and not

{
    $x; 
    while($y) {
        ();
    } 
    continue {
        $z;
    }
}
[download]

(at least not on the Perl level of things).

Cool stuff anyway! Thanks a million. I learned a lot from your reply. I flew over the optimizer and Deparse a few times (mostly when searching for other things), but using it that way looks powerful. Got any pointers to good information on it? Is there some "How to wrink the guts out of your script using -MO=Deparse/the Optimizer" somewhere?

So long,
Flexx

(I like the photo on your home node, BTW).