Help for this page

Select Code to Download

Select or download this

 
my %hash1 = ( one => 1, two => 2 );
 
...
        my $num = 0; for (keys %{$hname}) { $num++ };
        print "Hash: $hname has $num keys\n";
}

Select or download this
```
  
Hash: HASH(0x297f8) has 2 keys
```