generic-library/msgpack
1
0
Fork 0
mirror of https://github.com/msgpack/msgpack-c.git synced 2025-03-26 11:46:34 +01:00
Code Issues Projects Releases Wiki Activity

perl: make pp benchmarks available

Browse Source
This commit is contained in:
gfx 2010-09-18 16:16:51 +09:00
parent b402849557
commit c2bf2a8174
2 changed files with 8 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
perl/benchmark/deserialize.pl
View File

@ -1,25 +1,25 @@
use strict; use strict;
use warnings; use warnings;
use Data::MessagePack; use Data::MessagePack;
use JSON::XS; use JSON;
use Benchmark ':all';
use Storable; use Storable;
use Benchmark ':all';
#$Data::MessagePack::PreferInteger = 1; #$Data::MessagePack::PreferInteger = 1;
my $a = do 'benchmark/data.pl'; my $a = do 'benchmark/data.pl';
my $j = JSON::XS::encode_json($a); my $j = JSON::encode_json($a);
my $m = Data::MessagePack->pack($a); my $m = Data::MessagePack->pack($a);
my $s = Storable::freeze($a); my $s = Storable::freeze($a);
print "-- deserialize\n"; print "-- deserialize\n";
print "JSON::XS: $JSON::XS::VERSION\n"; print "$JSON::Backend: ", $JSON::Backend->VERSION, "\n";
print "Data::MessagePack: $Data::MessagePack::VERSION\n"; print "Data::MessagePack: $Data::MessagePack::VERSION\n";
print "Storable: $Storable::VERSION\n"; print "Storable: $Storable::VERSION\n";
cmpthese timethese( cmpthese timethese(
-1 => { -1 => {
json => sub { JSON::XS::decode_json($j) }, json => sub { JSON::decode_json($j) },
mp => sub { Data::MessagePack->unpack($m) }, mp => sub { Data::MessagePack->unpack($m) },
storable => sub { Storable::thaw($s) }, storable => sub { Storable::thaw($s) },
} }

6
perl/benchmark/serialize.pl
View File

@ -1,19 +1,19 @@
use strict; use strict;
use warnings; use warnings;
use Data::MessagePack; use Data::MessagePack;
use JSON::XS; use JSON;
use Storable; use Storable;
use Benchmark ':all'; use Benchmark ':all';
my $a = do 'benchmark/data.pl'; my $a = do 'benchmark/data.pl';
print "-- serialize\n"; print "-- serialize\n";
print "JSON::XS: $JSON::XS::VERSION\n"; print "$JSON::Backend: ", $JSON::Backend->VERSION, "\n";
print "Data::MessagePack: $Data::MessagePack::VERSION\n"; print "Data::MessagePack: $Data::MessagePack::VERSION\n";
print "Storable: $Storable::VERSION\n"; print "Storable: $Storable::VERSION\n";
cmpthese timethese( cmpthese timethese(
-1 => { -1 => {
json => sub { JSON::XS::encode_json($a) }, json => sub { JSON::encode_json($a) },
storable => sub { Storable::freeze($a) }, storable => sub { Storable::freeze($a) },
mp => sub { Data::MessagePack->pack($a) }, mp => sub { Data::MessagePack->pack($a) },
} }