perl/benchmark/serialize.pl


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18

use strict;
use warnings;
use Data::MessagePack;
use JSON::XS;
use Benchmark ':all';

my $a = [0..2**24];

print "-- serialize\n";
print "JSON::XS: $JSON::XS::VERSION\n";
print "Data::MessagePack: $Data::MessagePack::VERSION\n";
cmpthese(
    -1 => {
        json => sub { JSON::XS::encode_json($a)   },
        mp   => sub { Data::MessagePack->pack($a) },
    }
);