最近CPANにJSON::DWIWというJSON parserがリリースされて居ました。 このモジュールのPODにはBenchmarkの結果があり、JSON, JSON::Syckとのベンチ結果が載っていますが、なんとJSON::Syckより速いとの結果が出ています! ちょっと気になったので自分でもベンチマークを取ってみました。 ソース 下記のような感じです。 #!/usr/bin/perl use strict; use warnings; use Benchmark; use Data::Dump qw/dump/; use File::Slurp; use JSON qw(); use JSON::Syck; use JSON::DWIW; our $json_file = $ARGV[0]; die("not json file") unless ($json_file && -e