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: $nextItem\n";
}

You will get:
Test item: fred
Test item: joe
Test item: brown
Test item: sam

编辑：将use strict;添加到程序的顶部。基本上，当您定义了哈希时，您尝试将HoA用作数组。您正在不正确地引用哈希的内容。要正确地执行此操作，您确实需要$和@之间的HoA。 Perl是无类型的，如果你不use strict;，它会让你逃脱谋杀。 reference excerpt from oreilly可能会清除一些内容。

my @testarray是一个数组
my %hash是哈希 $hash{$el1} = \@array是一个哈希元素，其值为数组的ref @{$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} };

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

4 个答案: