如何存储数组元素内部的哈希？

Question

的背景

我得到了一个Perl模块，该模块利用数组作为输入/输出参数，如下所示：

Execute({inputfile => $req->{modules}.'filename', param => \@xchange});

在模块内部构建哈希并通过引用返回

$param[0] = \%values;

一切都很好（我认为），并print Dumper @xchange[0]; 会将我想要的内容输出为

$VAR1 = { '33' => 'Title1', '53' => 'Title2', '21' => 'Title3' };

目标

我想遍历内容并逐个打印键/值对，例如这样

%testhash = ('33' => 'Test1', '53' => 'Test2', '21' => 'Test3' );

foreach $key (keys %testhash) {
    print "LOOP: $key, value=$testhash{$key}\n";
}

这个循环确实按预期工作，并通过print Dumper \\%testhash;转储我的print Dumper \\%testhash; 输出与上面的数组元素相同

$VAR1 = { '33' => 'Test1', '53' => 'Test2', '21' => 'Test3' };

问题

现在的麻烦似乎是，尽管这两种结构看起来都是同一种类型，我无法理解，但是如何正确访问存储在@xchange [0]中的返回哈希值。

我确实尝试了%realhash = @xchange[0]; 和%realhash = \\@xchange[0]; ，然后print Dumper \\%realhash; 将输出$VAR1 = { 'HASH(0xa7b29c0)' => undef }; 或$VAR1 = { 'REF(0xa7833a0)' => undef }; 分别。

因此，我要么需要一种方法来获取干净的新哈希中@xchange [0]的内容，要么需要一种方法来遍历@xchange [0]元素内部的哈希。

我想我已经为整个哈希引用概念所困扰，但是我在这里很茫然，无法想到另一种使用Google的方法。

Answer 1

$xchange[0]是一个哈希引用。 使用取消引用运算符%{...}将其作为哈希访问。

%realhash = %{$xchange[0]};

Answer 2

@xchange[0]是标量值，它包含对哈希的引用。 当您将其分配给哈希时

%hash = @xchange[0];

该引用被字符串化为HASH(0xa7b29c0) ，您会收到警告

Scalar value @xchange[0] better written as $xchange[0] at ...
Reference found where even-sized list expected at ...

这就是说，您会收到这些警告， 除非您如此愚蠢以至于无法use warnings来打开use warnings 。

第一个表示它的意思。 第二个意味着您分配给哈希的列表应该具有偶数个元素：每个键一个值。 您只传递了一个“密钥”（Perl作为密钥）。 然后该值变为undef，如您的Data::Dumper输出中所述：

$VAR1 = { 'HASH(0xa7b29c0)' => undef }

您需要做的是取消引用的引用。

my $href = $xchange[0];
my %hash  = %$href;           # using a transition variable
my %hash2 = %{ $xchange[0] }  # using support curly braces

Answer 3

Perldsc

use warnings;
use strict;
use Data::Dumper; 
$Data::Dumper::Sortkeys=1;

my %testhash = ('33' => 'Test1', '53' => 'Test2', '21' => 'Test3' );

# Add hash as first element of xchange AoH
my @xchange = \%testhash;

# Derefererence 1st element of AoH as a hash
my %realhash = %{ $xchange[0] };

# Dump new hash
print Dumper(\%realhash);

__END__

$VAR1 = {
          '21' => 'Test3',
          '33' => 'Test1',
          '53' => 'Test2'
        };