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

x9x9

虽然没有求证，但感觉JSON的发明者肯定对Perl也是超爱的，因为JSON怎么看都和Perl的数据结构如出一辙，只是Perl的定义哈希多用的是"=>"，而JSON用的是冒号":"，那个亲切感很油然的说～
      CPAN上用于解析JSON的模块也不少，比如JSON、JSON::XS、JSON::Parse等。当然还是推荐使用模块来解析JSON了。这里只是因为上面所说的那种“亲切感”而提供一个不用模块解析JSON的方式而已，或许数据结构不复杂、不涉及编码转换，而你又不想安装模块的时候不妨这么试一下。

1. use strict;
   
2. use warnings;
   
3. use Data::Dumper;
   
4. 
   
5. my $str='{"a":1,"b":2,"c":["7","8","9"]}';
   
6. $str=~s/(?<="):/=>/g;
   
7. my $ref=eval $str;
   
8. print Dumper($ref);

复制代码

兰花仙子

eval一个string有个问题是不太安全。
如果这个JSON是网站上get的，那么网站就可以设置一个恶意string让你eval了。

x9x9

eval一个string有个问题是不太安全。
如果这个JSON是网站上get的，那么网站就可以设置一个恶意string让你e ...
兰花仙子 发表于 2011-09-09 14:41

是的，所以加了很多前提。只是JSON和Perl定义数据的方式太像了，忍不住这么尝试一下。

兰花仙子

是的，所以加了很多前提。只是JSON和Perl定义数据的方式太像了，忍不住这么尝试一下。
x9x9 发表于 2011-09-09 14:46

    其实hash都差不多的。ruby/python的hash都类似样子。
MongoDB的BSON也类似样子。

x9x9

回复 4# 兰花仙子

BSON 还没接触过。请教仙子，有没有其它可替代上面 eval 的方法来把字符串转换为数据结构？

兰花仙子

回复  兰花仙子

BSON 还没接触过。请教仙子，有没有其它可替代上面 eval 的方法来把字符串转换为数据结 ...
x9x9 发表于 2011-09-09 14:50

    没了解过。。或许看看JSON的源码：
http://cpansearch.perl.org/src/MAKAMAKA/JSON-2.53/lib/JSON.pm