Question

我从服务器收到json格式的响应。我使用Data :: Dumper分解它，得到

$VAR1 = {
  'StatementsResponse' => {
    'ResponceRef' => '',
    'statements' => [
      {
        'J0115AOU3H' => {
          'BPL_DAT_KL' => '10.01.2019',
          'AUT_MY' => '10'
        }
      },
      {
        'J0115A47J7' => {
          'AUT_MY' => '11',
          'BPL_DAT_KL' => '11.01.2019'
        }
      },
      {
        'J0115AVR8L' => {
          'BPL_DAT_KL' => '12.01.2019',
          'AUT_MY' => '12'
        }
      },
      {
        'J0115AVBGS' => {
          'AUT_MY' => '13',
          'BPL_DAT_KL' => '13.01.2019'
        }
      }
    ]
  }
};

如果BPL_DAT_KL是一个不断变化且在输出时未知的动态值，如何获取值AUT_MY和J0115AOU3H？如果我知道值，那么可以使用下面的代码获取值，但是如果我不知道该怎么办？

use JSON;
use JSON::XS;
my $json = `cat /home/json.log`;
my $data=decode_json($json);

use Data::Dumper;
print Dumper($data);

my $aref = $data->{'StatementsResponse'}->{'statements'};
for my $element (@$aref) {
    print $element->{J0115AOU3H}->{BPL_SUM_E};
}

Answer 1

my $statements = $data->{StatementsResponse}{statements};
for my $statement (@$statements) {
    for my $statement_id (keys(%$statement)) {
        my $statement_data = $statement->{$statement_id};
        say $statement_data->{BPL_SUM_E};
    }
}

如果我们只能依靠仅具有一个元素的哈希，那么您的格式就很奇怪，上面的内容可以简化为以下内容：

my $statements = $data->{StatementsResponse}{statements};
for my $statement (@$statements) {
    my ($statement_id) = keys(%$statement);
    my $statement_data = $statement->{$statement_id};
    say $statement_data->{BPL_SUM_E};
}

从PERL解析JSON

1 个答案: