json - 处理由 JSON 解码的散列的散列

Question

我有一个散列的散列，$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'};
}

Answer 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};
}

更多:

• Perl Reference Tutorial
• Perl Data Structures Cookbook