ViewVC Help
View File | Revision Log | Show Annotations | Download File
/cvs/JSON-XS/eg/bench
(Generate patch)

Comparing JSON-XS/eg/bench (file contents):
Revision 1.2 by root, Fri Mar 23 10:47:05 2007 UTC vs.
Revision 1.3 by root, Fri Mar 23 15:10:55 2007 UTC

… …
20my $json; # the test string 20my $json; # the test string
21 21
22local $/; 22local $/;
23$json = <>; 23$json = <>;
24 24
25$json = to_json [join "", map +(chr rand 255), 0..8191];
26
25#if (1) { 27#if (1) {
26# use Storable; 28# use Storable;
27# open my $fh, "<:unix", "/opt/crossfire/share/cfserver/faces" or die "$!"; 29# open my $fh, "<:unix", "/opt/crossfire/share/cfserver/faces" or die "$!";
28# my $faces = Storable::thaw do { <$fh> }; 30# my $faces = Storable::thaw do { <$fh> };
29# $json = objToJson $faces; 31# $json = objToJson $faces;
… …
31# print $fh2 $json; 33# print $fh2 $json;
32# warn length $json; 34# warn length $json;
33#} 35#}
34 36
35my %tst = ( 37my %tst = (
38# "JSON" => ['objToJson $perl' , 'jsonToObj $json'],
36 "JSON::DWIW" => ['$dwiw->to_json ($perl)', '$dwiw->from_json ($json)'], 39 "JSON::DWIW" => ['$dwiw->to_json ($perl)', '$dwiw->from_json ($json)'],
37 "JSON::Syck" => ['JSON::Syck::Dump $perl', 'JSON::Syck::Load $json'],
38 "JSON::PC" => ['$pc->convert ($perl)' , '$pc->parse ($json)'], 40 "JSON::PC" => ['$pc->convert ($perl)' , '$pc->parse ($json)'],
39 "JSON" => ['objToJson $perl' , 'jsonToObj $json'], 41# "JSON::Syck" => ['JSON::Syck::Dump $perl', 'JSON::Syck::Load $json'],
40 "JSON::XS" => ['to_json $perl' , 'from_json $json'], 42 "JSON::XS" => ['to_json $perl' , 'from_json $json'],
41 "JSON::XS/2" => ['$xs->encode ($perl)' , '$xs->decode ($json)'], 43 "JSON::XS/2" => ['$xs->encode ($perl)' , '$xs->decode ($json)'],
42); 44);
43 45
44sub bench($) { 46sub bench($) {

Diff Legend

– Removed lines
+ Added lines
< Changed lines
> Changed lines