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

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