| OLD | NEW |
|---|
| (Empty) |
| 1 #!/usr/bin/perl | |
| 2 | |
| 3 use strict; | |
| 4 use warnings; | |
| 5 use Benchmark qw( cmpthese timethese ); | |
| 6 | |
| 7 our $VERSION = '1.00'; | |
| 8 | |
| 9 my $wanttime = $ARGV[1] || 5; | |
| 10 | |
| 11 use JSON qw( -support_by_pp -no_export ); # for JSON::PP::Boolean inheritance | |
| 12 use JSON::PP (); | |
| 13 use JSON::XS (); | |
| 14 use utf8; | |
| 15 | |
| 16 my $pp = JSON::PP->new->utf8; | |
| 17 my $xs = JSON::XS->new->utf8; | |
| 18 | |
| 19 local $/; | |
| 20 | |
| 21 my $json = <>; | |
| 22 my $perl = JSON::XS::decode_json $json; | |
| 23 my $result; | |
| 24 | |
| 25 | |
| 26 printf( "JSON::PP %s\n", JSON::PP->VERSION ); | |
| 27 printf( "JSON::XS %s\n", JSON::XS->VERSION ); | |
| 28 | |
| 29 | |
| 30 print "-----------------------------------\n"; | |
| 31 print "->encode()\n"; | |
| 32 print "-----------------------------------\n"; | |
| 33 | |
| 34 $result = timethese( -$wanttime, | |
| 35 { | |
| 36 'JSON::PP' => sub { $pp->encode( $perl ) }, | |
| 37 'JSON::XS' => sub { $xs->encode( $perl ) }, | |
| 38 }, | |
| 39 'none' | |
| 40 ); | |
| 41 cmpthese( $result ); | |
| 42 | |
| 43 print "-----------------------------------\n"; | |
| 44 print "->pretty->canonical->encode()\n"; | |
| 45 print "-----------------------------------\n"; | |
| 46 | |
| 47 $pp->pretty->canonical; | |
| 48 $xs->pretty->canonical; | |
| 49 | |
| 50 $result = timethese( -$wanttime, | |
| 51 { | |
| 52 'JSON::PP' => sub { $pp->encode( $perl ) }, | |
| 53 'JSON::XS' => sub { $xs->encode( $perl ) }, | |
| 54 }, | |
| 55 'none' | |
| 56 ); | |
| 57 cmpthese( $result ); | |
| 58 | |
| 59 print "-----------------------------------\n"; | |
| 60 | |
| 61 | |
| 62 __END__ | |
| 63 | |
| 64 =pod | |
| 65 | |
| 66 =head1 SYNOPSYS | |
| 67 | |
| 68 bench_encode.pl json-file | |
| 69 # or | |
| 70 bench_encode.pl json-file minimum-time | |
| 71 | |
| 72 =head1 DESCRIPTION | |
| 73 | |
| 74 L<JSON::PP> and L<JSON::XS> encoding benchmark. | |
| 75 | |
| 76 =head1 AUTHOR | |
| 77 | |
| 78 makamaka | |
| 79 | |
| 80 =head1 LISENCE | |
| 81 | |
| 82 This library is free software; you can redistribute it and/or modify it | |
| 83 under the same terms as Perl itself. | |
| 84 | |
| 85 =cut | |
| 86 | |
| OLD | NEW |
|---|
Chromium Code Reviews
