Help for this page

Select Code to Download


  1. or download this
    #!/usr/bin/perl -CSDA

...
a/x not
Can't vivify reference at ./atest line 18.
  2. or download this
     
ver 5.24 good way: 

...

! ( $$h{a} && $$h{a}{$x} && $$h{a}{x}{z}) and print "a/x/z not\n";   #
+ ?? any better idea?