Perl JSON如何获得密钥的价值

Question

我有以下json输出，我试图获得启用的值

{  
   "_id":"sensor1",
   "_returned":1,
   "_embedded":{  
      "rh:doc":[  
         {  
            "_id":{  },
            "enabled":"true"
         }
      ]
   }
}

我尝试了以下内容

foreach my $x ( @{$vsConfig}) {
    print $x;
}

我不确定为什么它不返回任何东西，这不是哈希引用吗？

谢谢

Answer 1

假设$vsConfig是在json解码后获得的哈希引用：

print $vsConfig->{_embedded}->{'rh:doc'}->[0]->{enabled}

整个代码，包括解码json的部分：

use strict;
use warnings;
use JSON qw/decode_json/;

my $json = q|
{  
   "_id":"sensor1",
   "_returned":1,
   "_embedded":{  
      "rh:doc":[  
         {  
            "_id":{  },
            "enabled":"true"
         }
      ]
   }
}
|;

my $vsConfig = decode_json( $json );

print $vsConfig->{_embedded}->{'rh:doc'}->[0]->{enabled};