Help for this page

Select Code to Download


  1. or download this
    use strict;
use warnings;
...
print "[" . ref($aref) . "]\n";
print "[" . ref($b) . "]\n";
print "[" . ref($bref) . "]\n";
  2. or download this
    use strict;
use warnings;
...

print UNIVERSAL::isa($aref, "SCALAR") + 0, "\n";
print UNIVERSAL::isa($bref, "ARRAY") + 0, "\n";