不用模块解析JSON的一种方式

      CPAN上用于解析JSON的模块也不少，比如 JSON::XS、JSON::Parse 等。当然还是推荐使用模块来解析JSON了。这里只是提供一个不用模块解析JSON的方式而已，或许数据结构不复杂、不涉及编码转换，而你又不想安装模块的时候不妨这么试一下。

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);