Perl 如何访问作为数组元素的散列，该数组是另一个散列的值？

Question

我正在尝试创建一个以数组为值的哈希。

值（是一个数组）的第一个元素是标量。 该值的第二个元素（这是一个数组）是另一个散列。

我已将值放入此哈希的键和值中，如下所示：

${${$senseInformationHash{$sense}[1]}{$word}}++;

这里，

我的主哈希 -> senseInformationHash

我的值 ->是一个数组

所以， ${$senseInformationHash{$sense}[1]} 为我提供了对我的哈希的引用

，我输入了键和值，如下所示：

${${$senseInformationHash{$sense}[1]}{$word}}++;

我不确定这是否是正确的方法去做它。因为我被困住了，不知道如何打印这个复杂的东西。我想把它打印出来，以检查我是否做得正确。

任何帮助将非常感激。提前致谢！

Answer 1

只要写

$sense_information_hash{$sense}[1]{$word}++;

下来就可以了。

Perl 嫉妒 CamelCase，你知道，所以你应该使用正确的下划线。否则，它可能会吐口水、反抗，并且通常会行为不端。

Answer 2

哈希值从来都不是数组，它是数组引用。

要查看您是否做得正确，您可以转储整个结构：

my %senseInformationHash;
my $sense = 'abc';
my $word = '123';
${${$senseInformationHash{$sense}[1]}{$word}}++;
use Data::Dumper;
print Dumper( \%senseInformationHash );

这会让您：

$VAR1 = {
      'abc' => [
                 undef,
                 {
                   '123' => \1
                 }
               ]
    };

注意 \1：大概您希望该值为 1，而不是对标量 1 的引用。您得到后者是因为您的 ${ ... }++; 表示将大括号中的内容视为标量引用并增加引用的标量。

${$senseInformationHash{$sense}[1]}{$word}++; 执行您想要的操作，$senseInformationHash{$sense}[1]{$word}+ 也是如此+。您可能会找到 http://perlmonks.org/?node=References+quick+reference 有助于了解原因。

Answer 3

谢谢 Axeman 和 TChrist。

我必须访问它的代码如下：

    foreach my $outerKey (keys(%sense_information_hash))
{
  print "\nKey => $outerKey\n";
  print "  Count(sense) => $sense_information_hash{$outerKey}[0]\n";

        foreach(keys (%{$sense_information_hash{$outerKey}[1]}) )
    {
        print " Word wt sense => $_\n";
        print " Count  => $sense_information_hash{$outerKey}[1]{$_}\n"; 
    }
}

现在正在运行。非常感谢！