Perl的JSON如何获得的关键

Question

值我有以下的JSON输出，我试图让启用

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

我已经试过的值以下

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

我不知道为什么它不返回任何东西，是不是一个哈希引用？

由于

Answer 1

假设$vsConfig是JSON被解码后获得的散列REF：

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