perl – 如何从哈希哈希中获取哈希切片?

前端之家收集整理的这篇文章主要介绍了perl – 如何从哈希哈希中获取哈希切片?前端之家小编觉得挺不错的,现在分享给大家,也给大家做个参考。
我有这样的哈希:

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

解决方法

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

$h{'a'}

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

%{ $h{'a'} }

现在你想要一个切片,所以你用@替换%,因为你得到了多个元素,并且你也正常地将你的键放在最后:

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

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

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

猜你在找的Perl相关文章