处理由 JSON 解码的哈希值答案

【问题标题】：Handling hash of hashes decoded by JSON处理由 JSON 解码的哈希值
【发布时间】：2013-11-28 02:38:32
【问题描述】：

我有一个哈希值 $json，它由 perl 脚本从 post 方法接收。用 JSON 解码结构后，

use JSON;
my $decode = decode_json($json);

这是来自 Data::Dumper 的结构：

$VAR1 = {
          '11' => {
                    '_by' => 122,
                    '_bx' => 296,
                    '_ay' => 115,
                    '_ax' => 337
                  },
          '21' => {
                    '_by' => 138,
                    '_bx' => 395,
                    '_ay' => 135,
                    '_ax' => 394
                  },
          '7' => {
                   '_by' => 87,
                   '_bx' => 392,
                   '_ay' => 82,
                   '_ax' => 389
                 },
          '17' => {
                    '_by' => 132,
                    '_bx' => 392,
                    '_ay' => 129,
                    '_ax' => 385
                  },
          '2' => {
                   '_by' => 80,
                   '_bx' => 266,
                   '_ay' => 87,
                   '_ax' => 222
                 },
          '22' => {
                    '_by' => 138,
                    '_bx' => 395,
                    '_ay' => 138,
                    '_ax' => 395
                  },
          '1' => {
                   '_by' => 87,
                   '_bx' => 222,
                   '_ay' => 94,
                   '_ax' => 196
                 }
        };

键实际上是从 0 到 25（为了简洁起见，我在这里缩短了结构）

我想知道为什么下面的代码会返回错误：

for (my $i=0; $i<=25; $i++) {
print $decode{$i}{'_bx'};
}

【问题讨论】：

标签： json perl

【解决方案1】：

你得到的是一个散列的引用，而不是散列，所以你需要取消引用它。您可以使用 -> 运算符访问单个元素。

for (my $i=0; $i<=25; $i++) {
    print $decode->{$i}{'_bx'};
}

或者更漂亮：

for my $i ( 0..25 ) { 
    print $decode->{$i}{_bx};
}

如果你想一次取消引用整个哈希，你可以使用

my %new = %$decode;
for my $i ( 0..25 ) { 
    print $new{$i}{_bx};
}

【讨论】：

太好了，谢谢！也感谢更漂亮的语法，总是有用的。