Help for this page

Select Code to Download


  1. or download this
    my $switchnum = 15;
my $calltype = []; # Empty array ref
print "ref of switchnum = ref($switchnum) \n
       ref of calltype = ref($calltype) \n";
  2. or download this
    ref of switchnum = ref(15) 

       ref of calltype = ref(ARRAY(0x1234567))
  3. or download this
    ref(eval "\$$_") or warn "\$$_ is not a reference" for qw(switchnum ca
+lltype);