加速Perl中的JSON解析

Question

我一直在一个perl脚本中使用JSON包，该脚本解析一长串相对较短的JSON字符串，并且我使用Devel::NYTProf分析了这个过程。在解析过程中，JSON string函数似乎占用了大部分时间。

除了不使用JSON包并尝试自己解析它来加速之外，还有什么我可以使用的加速方法吗？

编辑: JSON包是使用cpanm安装在系统中的。如果有任何通过优化安装过程而获得的加速，也欢迎它们。

Answer 1

尝试安装JSON::XS。然后，"use JSON“自动使用XS版本。这个模块是用C语言编写的，有很好的性能。

Answer 2

另一个有趣的解决方法是：

如果你需要解析JSON，这样你就可以从一个大的JSON对象中提取出更小的块，并且说JSON对象是通过webapp提供的--在发送到Perl之前，只需在JavaScript中将JSON解析并压缩成更小的块。

JS具有惊人的速度和效率的字符串到JSON的解析器(Douglas Crockford's parser，不是eval，只是为了清楚起见)，即使您从一个字符串开始，而不是JSON数据结构本身。