在CPAN上用于解析JSON的模块有很多,例如 JSON::XS、JSON::Parse 等。使用perl解析json数据时,我们首先推荐使用现成的perl模块来进行相关操作。
这里只是提供一个不用模块解析JSON的方式而已,或许数据结构不复杂、不涉及编码转换,而你又不想安装模块时,不妨这么试一下。
#!/bin/perl
use strict;
use warnings;
use Data::Dumper;
my $str='{"a":1,"b":2,"c":["7","8","9"]}';
$str=~s/(?<="):/=>/g;
my $ref=eval $str;
print Dumper($ref);