Help for this page

Select Code to Download

Select or download this

use strict;
use warnings;
...
local *foo = $hashref;                          # Short for *main::foo
printf("keys=%d\n", scalar(keys(%main::foo)));  # keys=1
printf("keys=%d\n", scalar(keys(%foo)));        # keys=0