Stowage/msgpack-python
2
0
Fork 0
mirror of https://github.com/msgpack/msgpack-python.git synced 2026-02-07 02:09:59 +00:00
Code Issues Projects Releases Packages Wiki Activity

updated benchmark script

Browse source
This commit is contained in:
tokuhirom 2010-09-10 20:27:11 +09:00
parent 9f684e7670
commit f6f675d1e1
2 changed files with 10 additions and 4 deletions
Download patch file Download diff file Expand all files Collapse all files

9
perl/benchmark/deserialize.pl
View file

@ -3,18 +3,21 @@ use warnings;
use Data::MessagePack;
use JSON::XS;
use Benchmark ':all';
use Storable;
my $a = [0..2**24];
my $j = JSON::XS::encode_json($a);
my $m = Data::MessagePack->pack($a);
my $s = Storable::nfreeze($a);
print "-- deserialize\n";
print "JSON::XS: $JSON::XS::VERSION\n";
print "Data::MessagePack: $Data::MessagePack::VERSION\n";
cmpthese(
timethese(
-1 => {
json => sub { JSON::XS::decode_json($j) },
mp => sub { Data::MessagePack->unpack($m) },
json => sub { JSON::XS::decode_json($j) },
mp => sub { Data::MessagePack->unpack($m) },
storable => sub { Storable::thaw($s) },
}
);

5
perl/benchmark/serialize.pl
View file

@ -2,6 +2,7 @@ use strict;
use warnings;
use Data::MessagePack;
use JSON::XS;
use Storable;
use Benchmark ':all';
my $a = [0..2**24];
@ -9,9 +10,11 @@ my $a = [0..2**24];
print "-- serialize\n";
print "JSON::XS: $JSON::XS::VERSION\n";
print "Data::MessagePack: $Data::MessagePack::VERSION\n";
cmpthese(
print "Storable: $Storable::VERSION\n";
timethese(
-1 => {
json => sub { JSON::XS::encode_json($a) },
storable => sub { Storable::nfreeze($a) },
mp => sub { Data::MessagePack->pack($a) },
}
);