反转哈希

Question

我想知道将哈希反转为另一个哈希的最有效方法如下：

{
D1 -> [ A
        B
        C
      ]
D2 ->  [ A
         B
       ]
D3 -> [ C
        A
      ]
}

我想再做一个这样的哈希

{
A - > [ D1
        D2
        D3
      ]

B ->  [ D1
        D2
      ]
C -> [ D1
       D3
     ]
}

我尝试过的是 第一：在哈希键中找到唯一的词，（1个for循环） 第二：制作一个哈希，所有这些唯一的术语都是关键 第三：遍历每个唯一键和每个键，如果存在，则将其添加到（2个for循环） 总之，我认为这不是最有效的 3 个循环

Answer 1

这是一种方法：

use strict;
use warnings;

use Data::Dumper;

my %a = ( d1 => ['a','b','c'],
          d2 => ['a','b'],
          d3 => ['c','a'] );

my %b;

for my $k (sort keys %a) {
    push @{$b{$_}}, $k for @{$a{$k}};
}

print Dumper(\%b);

Answer 2

这是一张非常难以阅读的双地图：

map {
  my $k = $_;
  map { push( @{ $b{$_} }, $k ) } @{ $a{$_} }
} sort( keys(%a) );

其他方面和@Mat 的回复差不多。