如何根据哈希数组的一个值从该数组中获取哈希引用?

my $key = "a";
my ($ref) = grep { $_->{$key} == 101 } @aoaoh;

或使用 List::Util 的 first() :

use List::Util 'first';
my $ref = first { $_->{$key} == 101 } @aoaoh;

早些时候,我用 foreach 用于获取 Hash ref 喜欢

foreach my $href (@aoaoh){
     foreach my $hkeys(keys %{$href}){
           if(${$href}{$hkeys} == 101){
              my $store_ref = $href;
           }
     }
}

现在,在得到尤金的帮助后,我可以像

my ($hash_ref) = grep {$_->{a} == 101 } @aoaoh;

或者一般情况下(当我们不知道钥匙时),然后使用

my ($hash_ref) = grep { grep { $_ == 101 } values %$_ } @aoaoh; 

这个 first 方法很好,如果我只想做一次或两次,我会使用什么。但是,如果您想多次这样做,最好编写一个查找表,如下所示:

my %hash_lookup;
foreach my $h ( @aoaoh ) { 
    foreach my $k ( keys %$h ) { 
        $hash_lookup{$k}{ $h->{ $k } } = $h;
    }
}

然后你会发现你的推荐信是这样的:

my $ref = $hash_lookup{ $a_or_b }{ $value };