Re: backwards if and while looping

The line

while ($a < $b) if not $error
 { $a++; }
[download]

is more clearly interpreted by perl to be while ($a < $b) if not $error{ $a++; }. Perl thinks $error{ $a++ } is a hash reference to %error. A construct that would DWYM would be (parenthesis not strictly necessary)

 
(!$error) && ($a++ while ($a < $b))
[download]

PJ
use strict; use warnings; use diagnostics; (if needed)

Comment on Re: backwards if and while looping Select or Download Code

Replies are listed 'Best First'.
Re^2: backwards if and while looping by jcpunk (Friar) on Oct 01, 2004 at 20:20 UTC
My dumbed down example seems to not be as excellent as I initially thought..... `(!$error) && (print "$data" while ($data = <input>))` [download] is erroring out on me with the print... Is this a fatal flaw in my plan? jcpunk all code is tested, and doesn't work so there :p (varient on common PM sig for my own ammusment)	[reply] [d/l]
Re^3: backwards if and while looping by BrowserUk (Patriarch) on Oct 01, 2004 at 22:44 UTC
`$error or print $data while $data = <input>;` [download] Examine what is said, not who speaks. "Efficiency is intelligent laziness." -David Dunham "Think for yourself!" - Abigail "Memory, processor, disk in that order on the hardware side. Algorithm, algorithm, algorithm on the code side." - tachyon	[reply] [d/l]