Help for this page

Select Code to Download


  1. or download this
    $hashref = {'Anonymous' => 'Hash'}; #hash has no varable
                                    #name - just reference
  2. or download this
    #usr/bin/perl  -w
use strict;
...

eval qq (print qq(Hashname: $$hashname1 Values:); print join ",",sort 
+keys %{$hasname1})" );
eval qq (print qq(Hashname: $$hashname1 Values:); print join ",",sort 
+keys %{$hasname1}) );