Question

我有一个散列哈希值，$ json，由post方法的perl脚本接收。用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};
}

更多信息：

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

1 个答案: