Re: backwards if and while looping

[periapt]

The line

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

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

[jcpunk]

My dumbed down example seems to not be as excellent as I initially thought.....

(!$error) && (print "$data" while ($data = <input>))

is erroring out on me with the print... Is this a fatal flaw in my plan?

[BrowserUk]

$error or print $data while $data = <input>;