Help for this page

Select Code to Download


  1. or download this
    Bareword "false" not allowed while "strict subs" in use at - line 1.
Bareword "true" not allowed while "strict subs" in use at - line 2.
  2. or download this
    #!/usr/bin/perl
use warnings;
...
$A = 0;
$c = not($A);
print "Value of not(\$A)= $c\n";
  3. or download this
    ($q=q:Sq=~/;[c](.)(.)/;chr(-||-|5+lengthSq)`"S|oS2"`map{chr |+ord
}map{substrSq`S_+|`|}3E|-|`7**2-3:)=~y+S|`+$1,++print+eval$q,q,a,