use v5.12.0; use warnings; use PadWalker qw/peek_my peek_our/; my $a1 = {}; our $a2 = {}; for my $space ( peek_my(0),peek_our(0) ){ for my $item (keys %{$space}) { say $item if (ref ${$space->{$item}} eq "HASH"); } }
Cheers Rolf
(addicted to the 𐍀𐌴𐍂𐌻 Programming Language :)
Wikisyntax for the Monastery
In reply to Re^4: %main:: and my'd vars
by LanX
in thread %main:: and my'd vars
by blahblahblah
| For: | Use: | ||
| & | & | ||
| < | < | ||
| > | > | ||
| [ | [ | ||
| ] | ] |