如何使用 perl 检索多个哈希值？

Question

如何检索多个哈希值？我尝试使用 使用 Hash::MultiValue 和 get_all()。它会抛出一个错误，提示“无法在未定义的值上调用方法“get_all””。哪个是为特定键实现多个值的功能的更好选择？键的值是正在打开的文件。

use warnings;
use List::MoreUtils qw(firstidx);
use Hash::MultiValue;

my $key_in;
…
open ($FR, "<$i") or die "couldn't open list";
 while($line=<$FR>){ 
   if($line =~ /search_pattern/){
   my $idx = firstidx { $_ eq 'hash_key' } @tags;   
   my $key= @tags[$idx+1];
   $hash{$key}= Hash::MultiValue->new($key=>'$i');
} 
close($FR);
for my $key_in ( sort keys %hash ) {
    @key_in = $hash->get_all('$key_in');
    print "$key_in = $hash{$key_in}\n";
}
my $key_in = <STDIN>;
if (exists($hash{$key_in})){
$hash_value = $hash{$key_in};
}else{
    exit;
}

Answer 1

我认为您需要一个数组引用来获取该值。然后，您可以将其视为一个数组。这是我们在Intermediate Perl 中向您展示的那种东西：

 $hash{$key} = [];
 push @{ $hash{$key} }, $some_value;

 my @values = @{ $hash{$key} };

使用 Perl v5.24，您可以使用 postfix dereferencing 让它更漂亮一点：

 use v5.24;

 $hash{$key} = [];
 push $hash{$key}->@*, 'foo';
 push $hash{$key}->@*, 'bar';

 my @values = $hash{$key}->@*;

而且，由于 Perl 自动获取一个未定义的值并将其转换为您需要的引用结构（自动激活），您不需要初始化一个未定义的值：

 use v5.24;

 push $hash{$key}->@*, 'foo';
 push $hash{$key}->@*, 'bar';

 my @values = $hash{$key}->@*;

---

获取哈希的所有键：

my @keys = keys %hash;

获取所有值（如果您在调用keys 后未更改哈希，则按相应键的顺序）：

my @values = values %keys;

使用哈希切片获取一些值：

my @some_values = @hash{@some_keys};

获取一些键和值（key-value slice）：

use v5.20;
my %smaller_hash = %hash{@some_keys}

Answer 2

这是一个示例，说明如何使用 Hash::MultiValue 中的 get_all() 检索给定键的多个哈希值：

use strict;
use warnings;
use Data::Dumper qw(Dumper);
use Hash::MultiValue;

my $hash = Hash::MultiValue->new();
$hash->add(tag1 => 'file1');
$hash->add(tag1 => 'file2');
$hash->add(tag2 => 'file3');
my @foo = $hash->get_all('tag1');
print(Dumper(\@foo));

输出：

$VAR1 = [
          'file1',
          'file2'
        ];