Help for this page

Select Code to Download


  1. or download this
    U:\> perl -MO=Deparse -le "$x = 5; if ($x) { print $x }"
$x = 5;
if ($x) {
    print $x;
}
  2. or download this
    U:\>perl -MO=Deparse -le "$x = 5; if (0) { print $x }"
$x = 5;
'???';
  3. or download this
    U:\>perl -MO=Deparse -le "$x = 5; if (1) { print $x }"
$x = 5;
print $x;;
  4. or download this
    U:\>perl -MO=Deparse -le "$x = 5; if (! 0) { print $x }"
$x = 5;
print $x;;