有人可以解释 Perl 中的哈希吗？答案

【问题标题】：Can someone explain hashes in Perl?有人可以解释 Perl 中的哈希吗？
【发布时间】：2011-05-31 17:25:06
【问题描述】：

主要功能：

my %hash = {'inner1'=>{'foo'=>5},
            'inner2'=>{'bar'=>6}};
$object->State(0, %AMSValues);

发送至：

sub State
{
   my ($self, $state, %values) = @_;
   my $value = \%values;

据我所知，一个应该是哈希，另一个是指针，但是...

图片看起来不像是这样，

$value = $value->{"HASH(0x52e0b6c)"}
%values = $values->{"HASH(0x52e0b6c)"}

【问题讨论】：

【解决方案1】：

use warnings; 总是。

你的：

my %hash = {'inner1'=>{'foo'=>5},
            'inner2'=>{'bar'=>6}};

不正确； {} 生成一个匿名哈希引用，%hash 获取一个键（该哈希引用字符串化）和一个 undef 值。

你想要的：

my %hash = ('inner1'=>{'foo'=>5},
            'inner2'=>{'bar'=>6});

就传递给子程序而言，你不能传递哈希值；像您显示的代码将散列扁平化为列表，然后从@_ 重新组合散列，但这将是一个单独的副本。如果您确实想要相同的哈希，则必须改为传递哈希引用。

【讨论】：