perl - 子ノードごとに Perl オブジェクトをグループ化する

Question

以下に示す形式のオブジェクトがあり、利用可能な月ごとにグループ化する必要があります。1000、2000など。は金額で、次のレベル (6, 4) は月です。

私のオブジェクト:

$VAR1 = {
          '1000' => {
                      '6' => {
                               'APR' => '13.9'
                             },
                      '4' => {
                               'APR' => '11.9'
                             }
                    },
          '2000' => {
                      '6' => {
                               'APR' => '13.9'
                             },
                      '4' => {
                               'APR' => '11.9'
                             }
                    },
          '4000' => {
                      '6' => {
                               'APR' => '13.9'
                             },
                      '4' => {
                               'APR' => '11.9'
                             }
                    }
          '5000' => {
                      '6' => {
                               'APR' => '13.9'
                             }
                    }
        };

私が欲しいオブジェクト:

$VAR1 = {
    '6' => {
             '1000',
             '2000',
             '4000',
             '5000'
           },
    '4' => {
             '1000',
             '2000',
             '4000'
           }
}

Answer 1

my %new_hash;
for my $amount (sort { $a <=> $b } keys(%$VAR1)) {
   for my $month (keys(%{ $VAR1->{$amount} })) {
      push @{ $new_hash{$month} }, $amount;
   }
}