Perl访问散列/散列引用数据结构中的元素

Question

我有一个问题，我希望你能帮忙，因为我是哈希和哈希引用的东西的新手？

我有以下数据结构：

$VAR1 = {
    'http://www.superuser.com/' => {
        'difference' => {
            'http://www.superuser.com/questions' => '10735',
            'http://www.superuser.com/faq' => '13095'
        },
        'equal' => {
            'http://www.superuser.com/ ' => '20892'
        }
    },
    'http://www.stackoverflow.com/' => {
        'difference' => {
            'http://www.stackoverflow.com/faq' => '13015',
            'http://www.stackoverflow.com/questions' => '10506'
        },
        'equal' => {
            'http://www.stackoverflow.com/ ' => '33362'
        }
    }

如果我想访问关键“差异”中的所有URL，以便我可以对URL执行一些其他操作，那么访问这些元素的正确或首选方法是什么？

例如，我将以下面的URL结束，然后我可以在< code>foreach循环中对这些URL执行操作:

http://www.superuser.com/questions
http://www.superuser.com/faq
http://www.stackoverflow.com/faq
http://www.stackoverflow.com/questions

-编辑-

用于访问上面所示数据结构中进一步向下的元素的代码：

my @urls;
foreach my $key1 ( keys( %{$VAR1} ) ) {
    print( "$key1\n" );
    foreach my $key2 ( keys( %{$VAR1->{$key1}} ) ) {
        print( "\t$key2\n" );
    foreach my $key3 ( keys( %{$VAR1->{$key1}{$key2}} ) ) {
        print( "\t\t$key3\n" );
    push @urls, keys %{$VAR1->{$key1}{$key2}{$key3}};
    }
  }
}
print "@urls\n";

使用上面的代码，为什么会出现以下错误？

不能使用字符串（"13238"）作为HASH参考，而“严格参考”正在使用……

Answer 1

这并不难，只需将第二级键从变量中的每个键上去掉：

my @urls;
for my $key (keys %$VAR1) {
    push @urls, keys %{$VAR1->{$key}{'difference'}};
}

如果您正在努力进行解引用，请记住，散列或数组中的所有值都只能是标量值。在多级散列或数组中，各级只是堆叠在彼此顶部的单个散列/数组。

例如，您可以执行以下操作：

for my $value (values %$VAR1) {
    push @urls, keys %{$value->{'difference'}};
}

或

for my $name (keys %$VAR1) {
    my $site = $VAR1->{$name};
    push @urls, keys %{$site->{'difference'}};
}

…直接通过值（对哈希的引用）或通过临时变量进行路由，通过键表示值。perldoc perldata中有更多内容要阅读。