perlのハッシュでスワッピングキーと値を書き込む最もコンパクトな方法

Question

perlのハッシュでキーと値を入れ替えて新しいハッシュを作成したい。これは、重複する値のキーが配列に入れられるように行われることに注意してください。これはreverseとは異なります。

私は明らかにこのためのループを行うことができます。しかし、私はそれがmapなどを使用してコンパクトな形で行うことができるかどうかはわかりません。

ありがとう。

Answer 1

このような "コンパクト"ループを実行できます。

my %orig = # whatever 
my %rev; 
push @{$rev{$orig{$_}}}, $_ for keys %orig; 

「反転」ハッシュのすべての値は、この配列になります。

Answer 2

機能性？ハッシュデリファレンスで減らすの呼び出しをラップするいくつかの理由

my %orig = (1 => 'a', 2 => 'b', 3 => 'c', 65 => 'a'); 
my $new_hash = List::Util::reduce { push @{ $a->{$orig{$b}} }, $b; $a } {}, keys %orig; 

は、& -prototype魔法を破るように見えるが、あなたがして、新しい変数を避けることができます：あなたは避けたい場合は

%orig = %{ List::Util::reduce sub { push @{ $a->{$orig{$b}} }, $b; $a }, {}, keys %orig }; 

いくつかのユーティリティ関数と

%orig = %{ List::Util::reduce sub { push @{ $a->{ $b->[0] } }, $b->[1]; $a }, {}, 
    @{ List::Util::reduce sub { ! @$a || $#{ $a->[-1] } ? push @$a, [ $b ] : push @{ $a->[-1] }, $b; $a }, [], 
     reverse %orig 
    } 
}; 

きれい：いくつかの他の発現からの結果は、Perlをふり元ハッシュpairlistsを有する場合％のORIGの内部参照は、言う

sub flatten_hashref { %{$_[0]} } 
sub flatten_arrayref { @{$_[0]} } 
sub pairlist { reduce { ! @$a || $#{ $a->[-1] } ? push @$a, [ $b ] : push @{ $a->[-1] }, $b; $a } [], @_ } 

%orig = 
    flatten_hashref 
    reduce { push @{ $a->{ $b->[0] } }, $b->[1]; $a } {}, 
    flatten_arrayref 
    pairlist 
    reverse 
    %orig;