如何列出json對象？

Question

我在這裏傾倒解碼JSON：

$VAR1 = { 
      'V1' => { 
         'version' => '7.11.117.240', 
         'update' => '20131205', 
      }, 
      'V2' => { 
         'version' => '8.0.1489.320', 
         'update' => '20131205', 
      }, 
      'V3' => { 
         'version' => '12.0.163.0', 
         'update' => '20131205', 
      }, 
      'V4' => { 
         'version' => '1.3.0.4562', 
         'update' => '20131129', 
      }, 
      'V5' => { 
         'version' => '2.0.3.7', 
         'update' => '20131129', 
      }, 
} 

我想列出變量$ VAR1裏面的JSON對象？

Answer 1

my $version = $VAR1->{V1}{version}; 

列出所有鍵

my @vkeys = sort keys %$VAR1; # (V1, V2, V3, ..)