Help for this page

Select Code to Download


  1. or download this
    $ 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
  2. or download this
    $ perl -MO=Deparse -e '(!(($a != 3) || ($a != 77) || ($a != 8)))'
not $a != 3 || $a != 77 || $a != 8;
...

$ perl -E '$a = 77; if (not $a != 3 || $a != 77 || $a != 8) { say "not
+" } else { say "is" }'
is