Question

我有这样的哈希：

my %h = ( a => { one => 1,
                 two => 2
             },
          b => { three => 3,
                 four => 4
             },
          c => { five => 5,
                 six => 6
             }
      );

print join(',', @{$h{a}{qw/one two/}});

我得到的错误是：不能在q.pl第17行使用未定义的值作为ARRAY引用这是打印线。

我的期望是什么 1,2

Answer 1

要从嵌套哈希中获取哈希切片，您必须逐步取消引用它。你得到了你需要的第一级：

$h{'a'}

现在，你必须取消引用它作为哈希。但是，由于它不是一个简单的标量，你必须把它放在括号中。要获得整个哈希值，您需要在大括号前添加%：

%{ $h{'a'} }

现在你想要一个切片，所以你用%取代@，因为你得到了多个元素，并且你也把钥匙放在最后：

@{ $h{'a'} }{ @keys }

分别看到大括号可能会更容易：

@{         }{       }
   $h{'a'}    @keys

Answer 2

试

print join(',',@{$h{'a'}}{qw/one two/});

使用Data :: Dumper对这种情况有很大帮助

如何从哈希哈希中获取哈希切片？

2 个答案: