in reply to Multiple numeric not or compare in if statement
G'day RedJeep,
There's short-circuiting occurring which I think may be throwing you. (77 is not equal to 3) is TRUE; so, when $a is 77, ($a != 3) is TRUE. Having found a TRUE condition, there's no need to evaluate the other ORed conditions (so Perl doesn't).
Changing your Option Not Equal condition to completely negate the Option Equal condition will do what I think you want:
$ perl -E '$a = 77; if (($a == 3) || ($a == 77) || ($a == 8)) { say "i +s" } else { say "not" }' is $ perl -E '$a = 77; if (!(($a == 3) || ($a == 77) || ($a == 8))) { say + "not" } else { say "is" }' is
You can run that rather complicated condition through B::Deparse to find a simpler way of expressing it.
$ perl -MO=Deparse -e '(!(($a != 3) || ($a != 77) || ($a != 8)))' not $a != 3 || $a != 77 || $a != 8; -e syntax OK $ perl -E '$a = 77; if (not $a != 3 || $a != 77 || $a != 8) { say "not +" } else { say "is" }' is
If it helps you, perlop has an "Operator Precedence and Associativity" section.
— Ken
|
|---|