arrays - hashrefsにネストされた特定のキーの反転マップを作成するエレガントな方法

Question

hashrefs構造の次のhashrefがあります。

$hashref = {
    user1 => {
        key1 => "unique_value1",
        ...
        key99 => "value1_99"
    },
    ...
    user26 => {
        key1 => "unique_value2",
        ...
        key99 => "value1_99"
    },

    user99 => {
        key1 => "unique_value1",
        ...
        key99 => "value99_99"
    },
};

私が欲しいもの：

$hashref = {
    "unique_value1" => ["user1","user99"],
    "unique_value2" => ["user26"]
};

私は歴史的に作成時に反転マップを作成しましたが、怠惰になっています。

これに使用できる1行の砂糖はありますか？

ありがとうございました。

Answer 1

一方通行：

my $h; 
push (@{$h->{$hashref->{$_}{key1}}}, $_) for keys %$hashref;

Answer 2

my %users_by_uval;
for my $user_id (%$users) {
    push @{ $users_by_uval{ $users->{$user_id}{key1} } }, $user_id;
}