使用Perl循环遍历JSON

发布时间：2020-12-16 06:11:23 所属栏目：大数据来源：网络整理

导读：参见英文答案 Parsing an array encoded in JSON through perl????????????????????????????????????2个我是Perl的新手,想要遍历这个JSON数据并将其打印到屏幕上. 我怎样才能做到这一点？ $arr = '[{"Year":"2012","Quarter":"Q3","DataType":"Other 3","En

参见英文答案 > Parsing an array encoded in JSON through perl????????????????????????????????????2个
我是Perl的新手,想要遍历这个JSON数据并将其打印到屏幕上.

我怎样才能做到这一点？

$arr = '[{"Year":"2012","Quarter":"Q3","DataType":"Other 3","Environment":"STEVE","Amount":125},{"Year":"2012","Quarter":"Q4","DataType":"Other 2","Environment":"MIKE","Amount":500}]';

解决方法

使用 JSON或 JSON::XS将JSON解码为Perl结构.

简单的例子：

use strict;
use warnings;

use JSON::XS;

my $json = '[{"Year":"2012","Amount":500}]';

my $arrayref = decode_json $json;

foreach my $item( @$arrayref ) { 
    # fields are in $item->{Year},$item->{Quarter},etc.
}

（编辑：李大同）

【声明】本站内容均来自网络，其相关言论仅代表作者个人观点，不代表本站立场。若无意侵犯到您的权利，请及时与联系站长删除相关内容!