Perl 如何从数组哈希中检索数组

Question

我对 Perl 相当陌生，所以如果这看起来像一个简单的问题，请原谅我......

无论如何，我

有一个数组哈希，我正在尝试检索哈希中的一个数组，但我所能得到的只是数组的标量大小。

%HoA = a hash of arrays
$key = some key in the hash
foreach $nextItem (@HoA{$key}) {
  do a bunch of stuff with $nextItem
}

当我这样做时，$nextItem总是只是数组的大小，循环只运行一次。 我尝试打印以下内容：

@HoA{$key}
$HoA{$key}
@$HoA{$key}

前两个给了我标量大小，第三个什么也没给我......我在这里错过了什么？

更新：我想知道我的问题是否实际上是我将数组添加到哈希的方式。 这是我正在做的事情：

@HoA{$key} = split(/ /, $list);

这是将数组粘贴

在哈希中，还是将数组大小粘贴在哈希中？

更新2：我尝试了以下代码块：

my $key = "TEST";
my %HoA = ();
my @testarray = (1, 2, 3);
@HoA{$key} = @testarray;
print Dumper(%HoA);

下面是输出：

$VAR1 = 'TEST';
$VAR2 = 1;

为什么它只粘贴数组的第一个值？

Answer 1

尝试以这种方式引用数组：

%HoA = a hash of arrays
$key = some key in the hash
foreach $nextItem (@{$HoA{$key}}) {
  do a bunch of stuff with $nextItem
}

您将数组引用$HoA{$key}并使其成为数组。

编辑：对于您的更新，我认为如果您这样做，您将获得您想要的：

@{$HoA{$key}} = split(/ /, $list);

或者你可以做

push(@{$HoA{$key}}, split(/ /, $list);

例如：

my $list = "fred joe brown sam";
my %HoA = ();
my $key = "jacob";
@{$HoA{$key} = split(/ /, $list);
foreach my $item (@{$HoA{$key}})
{
    print "Test item: $nextItemn";
}
You will get:
Test item: fred
Test item: joe
Test item: brown
Test item: sam

编辑：将use strict;添加到程序的顶部。基本上，当您定义了哈希时，您正在尝试将HoA用作数组。您不正确地引用了哈希的内容。要正确地做到这一点，您真的需要在@和HoA之间有一个$。Perl 是无型的，如果你不use strict;，它会让你逍遥法外。来自 oreilly 的参考摘录可能会澄清一些事情。

my @testarray是一个数组
my %hash是一个哈希
$hash{$el1} = @array 是一个哈希元素，具有数组
的引用值 @{$hash{$el1}} = @array 是包含数组
的哈希元素

Answer 2

哈希

中的每个条目都是对数组的引用。例如：

$my_hash{$key}

是对数组而不是数组的引用。 $my_hash{$key}只是指向内存中该数组所在的区域。要取消引用它，请将数组符号放在前面：

@{ my_hash{$key} }

当我们开始谈论元素时，事情变得更加毛茸茸：

${ my_hash{$key} }[0]

是该数组的第一个元素。你可以想象，如果该数组由其他数组的哈希组成，语法可能会变得非常混乱。幸运的是，Perl 有一个干净的处理方式：

$my_hash{$key}->[0];

这与上面完全相同，但语法更容易理解。有时，使用中间变量更容易，这样您就可以在不进行所有取消引用的情况下引用事物：

my %hash_of_array_refs;
foreach my $key (sort keys %hash_of_array_refs) {
    my @array = @{ $hash_of_array_refs{$key} };    #Dereference
    foreach my $element (@array) {                 #Much easier to read and understand
        say "First element is $array[0]";
        say "last element is $array[$#array]";
        say "This element: $element";
    }
}

在不取消引用的情况下，你会得到这个：

my %hash_of_array_refs;
foreach my $key (sort keys %hash_of_array_refs) {
    foreach my $element (@{ $hash_of_array_refs{$key} } ) {                 #Much easier to read and understand
        say "First element is " . $hash_of_array_refs->[0];
        say "last element is " . $hash_of_array_refs->[$#{ $hash_of_array_refs{key} } ]";
        say "This element: $element";
    }
}

Answer 3

@array

是你获得数组的方式，所以

@{ $array_ref }

等效于数组引用。

$HoA{$key}

是对数组的引用，因此

@{ $HoA{$key} }

是那个数组。

for my $nextItem (@{ $HoA{$key} }) 

Answer 4

"

为什么它只粘贴数组的第一个值？

您需要通过以反斜杠作为前缀来将对数组的引用放入哈希中：

$HoA{$key} = @testarray;

然后，当您从哈希中检索它时，您将取消引用：

@testarray = @{ $HoA{$key} };