in reply to inverting keys in a 2-D Hash

Just iterate over the keys on each level of the hash: 
my %h2;
for my $level1 (keys %HASH) {
    for my $level2 (keys %{ $HASH{$level1} }) {
        $h2{$level2}{$level1} = $HASH{$level1}{$level2};
    }
}
%HASH = %h2;

[download]
لսႽ† ᥲᥒ⚪⟊Ⴙᘓᖇ Ꮅᘓᖇ⎱ Ⴙᥲ𝇋ƙᘓᖇ

Replies are listed 'Best First'.
Re^2: inverting keys in a 2-D Hash
by LanX (Saint) on Aug 30, 2015 at 14:18 UTC
[reply]

In Section Seekers of Perl Wisdom