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