Help for this page

Select Code to Download


  1. or download this
    perl -MO=Deparse,-p -e '$x=1;print 1 if $x or print 0'
($x = 1);
(($x || print(0)) and print(1));
-e syntax OK
  2. or download this
    &one if $x or &zero;