如何列出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, ..)