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

Comparing JSON-XS/XS.pm (file contents):
Revision 1.124 by root, Sun Aug 9 16:01:39 2009 UTC vs.
Revision 1.139 by root, Thu May 23 09:31:32 2013 UTC

64so, and even documents what "correct" means. 64so, and even documents what "correct" means.
65 65
66=item * round-trip integrity 66=item * round-trip integrity
67 67
68When you serialise a perl data structure using only data types supported 68When you serialise a perl data structure using only data types supported
69by JSON, the deserialised data structure is identical on the Perl level. 69by JSON and Perl, the deserialised data structure is identical on the Perl
70(e.g. the string "2.0" doesn't suddenly become "2" just because it looks 70level. (e.g. the string "2.0" doesn't suddenly become "2" just because
71like a number). There minor I<are> exceptions to this, read the MAPPING 71it looks like a number). There I<are> minor exceptions to this, read the
72section below to learn about those. 72MAPPING section below to learn about those.
73 73
74=item * strict checking of JSON correctness 74=item * strict checking of JSON correctness
75 75
76There is no guessing, no generating of illegal JSON texts by default, 76There is no guessing, no generating of illegal JSON texts by default,
77and only JSON is accepted as input by default (the latter is a security 77and only JSON is accepted as input by default (the latter is a security
101 101
102package JSON::XS; 102package JSON::XS;
103 103
104use common::sense; 104use common::sense;
105 105
106our $VERSION = '2.25'; 106our $VERSION = 2.34;
107our @ISA = qw(Exporter); 107our @ISA = qw(Exporter);
108 108
109our @EXPORT = qw(encode_json decode_json to_json from_json); 109our @EXPORT = qw(encode_json decode_json to_json from_json);
110 110
111sub to_json($) { 111sub to_json($) {
432If C<$enable> is true (or missing), then the C<encode> method will output JSON objects 432If C<$enable> is true (or missing), then the C<encode> method will output JSON objects
433by sorting their keys. This is adding a comparatively high overhead. 433by sorting their keys. This is adding a comparatively high overhead.
434 434
435If C<$enable> is false, then the C<encode> method will output key-value 435If C<$enable> is false, then the C<encode> method will output key-value
436pairs in the order Perl stores them (which will likely change between runs 436pairs in the order Perl stores them (which will likely change between runs
437of the same script). 437of the same script, and can change even within the same run from 5.18
438onwards).
438 439
439This option is useful if you want the same data structure to be encoded as 440This option is useful if you want the same data structure to be encoded as
440the same JSON text (given the same overall settings). If it is disabled, 441the same JSON text (given the same overall settings). If it is disabled,
441the same hash might be encoded differently even if contains the same data, 442the same hash might be encoded differently even if contains the same data,
442as key-value pairs have no inherent ordering in Perl. 443as key-value pairs have no inherent ordering in Perl.
713calls). 714calls).
714 715
715JSON::XS will only attempt to parse the JSON text once it is sure it 716JSON::XS will only attempt to parse the JSON text once it is sure it
716has enough text to get a decisive result, using a very simple but 717has enough text to get a decisive result, using a very simple but
717truly incremental parser. This means that it sometimes won't stop as 718truly incremental parser. This means that it sometimes won't stop as
718early as the full parser, for example, it doesn't detect parenthese 719early as the full parser, for example, it doesn't detect mismatched
719mismatches. The only thing it guarantees is that it starts decoding as 720parentheses. The only thing it guarantees is that it starts decoding as
720soon as a syntactically valid JSON text has been seen. This means you need 721soon as a syntactically valid JSON text has been seen. This means you need
721to set resource limits (e.g. C<max_size>) to ensure the parser will stop 722to set resource limits (e.g. C<max_size>) to ensure the parser will stop
722parsing in the presence if syntax errors. 723parsing in the presence if syntax errors.
723 724
724The following methods implement this incremental parser. 725The following methods implement this incremental parser.
750otherwise. For this to work, there must be no separators between the JSON 751otherwise. For this to work, there must be no separators between the JSON
751objects or arrays, instead they must be concatenated back-to-back. If 752objects or arrays, instead they must be concatenated back-to-back. If
752an error occurs, an exception will be raised as in the scalar context 753an error occurs, an exception will be raised as in the scalar context
753case. Note that in this case, any previously-parsed JSON texts will be 754case. Note that in this case, any previously-parsed JSON texts will be
754lost. 755lost.
756
757Example: Parse some JSON arrays/objects in a given string and return
758them.
759
760 my @objs = JSON::XS->new->incr_parse ("[5][7][1,2]");
755 761
756=item $lvalue_string = $json->incr_text 762=item $lvalue_string = $json->incr_text
757 763
758This method returns the currently stored JSON fragment as an lvalue, that 764This method returns the currently stored JSON fragment as an lvalue, that
759is, you can manipulate it. This I<only> works when a preceding call to 765is, you can manipulate it. This I<only> works when a preceding call to
989Numbers containing a fractional or exponential part will always be 995Numbers containing a fractional or exponential part will always be
990represented as numeric (floating point) values, possibly at a loss of 996represented as numeric (floating point) values, possibly at a loss of
991precision (in which case you might lose perfect roundtripping ability, but 997precision (in which case you might lose perfect roundtripping ability, but
992the JSON number will still be re-encoded as a JSON number). 998the JSON number will still be re-encoded as a JSON number).
993 999
1000Note that precision is not accuracy - binary floating point values cannot
1001represent most decimal fractions exactly, and when converting from and to
1002floating point, JSON::XS only guarantees precision up to but not including
1003the leats significant bit.
1004
994=item true, false 1005=item true, false
995 1006
996These JSON atoms become C<JSON::XS::true> and C<JSON::XS::false>, 1007These JSON atoms become C<JSON::XS::true> and C<JSON::XS::false>,
997respectively. They are overloaded to act almost exactly like the numbers 1008respectively. They are overloaded to act almost exactly like the numbers
998C<1> and C<0>. You can check whether a scalar is a JSON boolean by using 1009C<1> and C<0>. You can check whether a scalar is a JSON boolean by using
1085 1096
1086You can not currently force the type in other, less obscure, ways. Tell me 1097You can not currently force the type in other, less obscure, ways. Tell me
1087if you need this capability (but don't forget to explain why it's needed 1098if you need this capability (but don't forget to explain why it's needed
1088:). 1099:).
1089 1100
1101Note that numerical precision has the same meaning as under Perl (so
1102binary to decimal conversion follows the same rules as in Perl, which
1103can differ to other languages). Also, your perl interpreter might expose
1104extensions to the floating point numbers of your platform, such as
1105infinities or NaN's - these cannot be represented in JSON, and it is an
1106error to pass those in.
1107
1090=back 1108=back
1091 1109
1092 1110
1093=head1 ENCODING/CODESET FLAG NOTES 1111=head1 ENCODING/CODESET FLAG NOTES
1094 1112
1238well - using C<eval> naively simply I<will> cause problems. 1256well - using C<eval> naively simply I<will> cause problems.
1239 1257
1240Another problem is that some javascript implementations reserve 1258Another problem is that some javascript implementations reserve
1241some property names for their own purposes (which probably makes 1259some property names for their own purposes (which probably makes
1242them non-ECMAscript-compliant). For example, Iceweasel reserves the 1260them non-ECMAscript-compliant). For example, Iceweasel reserves the
1243C<__proto__> property name for it's own purposes. 1261C<__proto__> property name for its own purposes.
1244 1262
1245If that is a problem, you could parse try to filter the resulting JSON 1263If that is a problem, you could parse try to filter the resulting JSON
1246output for these property strings, e.g.: 1264output for these property strings, e.g.:
1247 1265
1248 $json =~ s/"__proto__"\s*:/"__proto__renamed":/g; 1266 $json =~ s/"__proto__"\s*:/"__proto__renamed":/g;
1302that difficult or long) and finally make YAML compatible to it, and 1320that difficult or long) and finally make YAML compatible to it, and
1303educating users about the changes, instead of spreading lies about the 1321educating users about the changes, instead of spreading lies about the
1304real compatibility for many I<years> and trying to silence people who 1322real compatibility for many I<years> and trying to silence people who
1305point out that it isn't true. 1323point out that it isn't true.
1306 1324
1307Addendum/2009: the YAML 1.2 spec is still incomaptible with JSON, even 1325Addendum/2009: the YAML 1.2 spec is still incompatible with JSON, even
1308though the incompatibilities have been documented (and are known to 1326though the incompatibilities have been documented (and are known to Brian)
1309Brian) for many years and the spec makes explicit claims that YAML is a 1327for many years and the spec makes explicit claims that YAML is a superset
1310superset of JSON. It would be so easy to fix, but apparently, bullying and 1328of JSON. It would be so easy to fix, but apparently, bullying people and
1311corrupting userdata is so much easier. 1329corrupting userdata is so much easier.
1312 1330
1313=back 1331=back
1314 1332
1315 1333
1324a very short single-line JSON string (also available at 1342a very short single-line JSON string (also available at
1325L<http://dist.schmorp.de/misc/json/short.json>). 1343L<http://dist.schmorp.de/misc/json/short.json>).
1326 1344
1327 {"method": "handleMessage", "params": ["user1", 1345 {"method": "handleMessage", "params": ["user1",
1328 "we were just talking"], "id": null, "array":[1,11,234,-5,1e5,1e7, 1346 "we were just talking"], "id": null, "array":[1,11,234,-5,1e5,1e7,
1329 true, false]} 1347 1, 0]}
1330 1348
1331It shows the number of encodes/decodes per second (JSON::XS uses 1349It shows the number of encodes/decodes per second (JSON::XS uses
1332the functional interface, while JSON::XS/2 uses the OO interface 1350the functional interface, while JSON::XS/2 uses the OO interface
1333with pretty-printing and hashkey sorting enabled, JSON::XS/3 enables 1351with pretty-printing and hashkey sorting enabled, JSON::XS/3 enables
1334shrink). Higher is better: 1352shrink. JSON::DWIW/DS uses the deserialise function, while JSON::DWIW::FJ
1353uses the from_json method). Higher is better:
1335 1354
1336 module | encode | decode | 1355 module | encode | decode |
1337 -----------|------------|------------| 1356 --------------|------------|------------|
1338 JSON 1.x | 4990.842 | 4088.813 | 1357 JSON::DWIW/DS | 86302.551 | 102300.098 |
1339 JSON::DWIW | 51653.990 | 71575.154 | 1358 JSON::DWIW/FJ | 86302.551 | 75983.768 |
1340 JSON::PC | 65948.176 | 74631.744 | 1359 JSON::PP | 15827.562 | 6638.658 |
1341 JSON::PP | 8931.652 | 3817.168 | 1360 JSON::Syck | 63358.066 | 47662.545 |
1342 JSON::Syck | 24877.248 | 27776.848 | 1361 JSON::XS | 511500.488 | 511500.488 |
1343 JSON::XS | 388361.481 | 227951.304 | 1362 JSON::XS/2 | 291271.111 | 388361.481 |
1344 JSON::XS/2 | 227951.304 | 218453.333 | 1363 JSON::XS/3 | 361577.931 | 361577.931 |
1345 JSON::XS/3 | 338250.323 | 218453.333 | 1364 Storable | 66788.280 | 265462.278 |
1346 Storable | 16500.016 | 135300.129 |
1347 -----------+------------+------------+ 1365 --------------+------------+------------+
1348 1366
1349That is, JSON::XS is about five times faster than JSON::DWIW on encoding, 1367That is, JSON::XS is almost six times faster than JSON::DWIW on encoding,
1350about three times faster on decoding, and over forty times faster 1368about five times faster on decoding, and over thirty to seventy times
1351than JSON, even with pretty-printing and key sorting. It also compares 1369faster than JSON's pure perl implementation. It also compares favourably
1352favourably to Storable for small amounts of data. 1370to Storable for small amounts of data.
1353 1371
1354Using a longer test string (roughly 18KB, generated from Yahoo! Locals 1372Using a longer test string (roughly 18KB, generated from Yahoo! Locals
1355search API (L<http://dist.schmorp.de/misc/json/long.json>). 1373search API (L<http://dist.schmorp.de/misc/json/long.json>).
1356 1374
1357 module | encode | decode | 1375 module | encode | decode |
1358 -----------|------------|------------| 1376 --------------|------------|------------|
1359 JSON 1.x | 55.260 | 34.971 | 1377 JSON::DWIW/DS | 1647.927 | 2673.916 |
1360 JSON::DWIW | 825.228 | 1082.513 | 1378 JSON::DWIW/FJ | 1630.249 | 2596.128 |
1361 JSON::PC | 3571.444 | 2394.829 |
1362 JSON::PP | 210.987 | 32.574 | 1379 JSON::PP | 400.640 | 62.311 |
1363 JSON::Syck | 552.551 | 787.544 | 1380 JSON::Syck | 1481.040 | 1524.869 |
1364 JSON::XS | 5780.463 | 4854.519 | 1381 JSON::XS | 20661.596 | 9541.183 |
1365 JSON::XS/2 | 3869.998 | 4798.975 | 1382 JSON::XS/2 | 10683.403 | 9416.938 |
1366 JSON::XS/3 | 5862.880 | 4798.975 | 1383 JSON::XS/3 | 20661.596 | 9400.054 |
1367 Storable | 4445.002 | 5235.027 | 1384 Storable | 19765.806 | 10000.725 |
1368 -----------+------------+------------+ 1385 --------------+------------+------------+
1369 1386
1370Again, JSON::XS leads by far (except for Storable which non-surprisingly 1387Again, JSON::XS leads by far (except for Storable which non-surprisingly
1371decodes faster). 1388decodes a bit faster).
1372 1389
1373On large strings containing lots of high Unicode characters, some modules 1390On large strings containing lots of high Unicode characters, some modules
1374(such as JSON::PC) seem to decode faster than JSON::XS, but the result 1391(such as JSON::PC) seem to decode faster than JSON::XS, but the result
1375will be broken due to missing (or wrong) Unicode handling. Others refuse 1392will be broken due to missing (or wrong) Unicode handling. Others refuse
1376to decode or encode properly, so it was impossible to prepare a fair 1393to decode or encode properly, so it was impossible to prepare a fair
1412information you might want to make sure that exceptions thrown by JSON::XS 1429information you might want to make sure that exceptions thrown by JSON::XS
1413will not end up in front of untrusted eyes. 1430will not end up in front of untrusted eyes.
1414 1431
1415If you are using JSON::XS to return packets to consumption 1432If you are using JSON::XS to return packets to consumption
1416by JavaScript scripts in a browser you should have a look at 1433by JavaScript scripts in a browser you should have a look at
1417L<http://jpsykes.com/47/practical-csrf-and-json-security> to see whether 1434L<http://blog.archive.jpsykes.com/47/practical-csrf-and-json-security/> to
1418you are vulnerable to some common attack vectors (which really are browser 1435see whether you are vulnerable to some common attack vectors (which really
1419design bugs, but it is still you who will have to deal with it, as major 1436are browser design bugs, but it is still you who will have to deal with
1420browser developers care only for features, not about getting security 1437it, as major browser developers care only for features, not about getting
1421right). 1438security right).
1422 1439
1423 1440
1424=head1 THREADS 1441=head1 THREADS
1425 1442
1426This module is I<not> guaranteed to be thread safe and there are no 1443This module is I<not> guaranteed to be thread safe and there are no
1427plans to change this until Perl gets thread support (as opposed to the 1444plans to change this until Perl gets thread support (as opposed to the
1428horribly slow so-called "threads" which are simply slow and bloated 1445horribly slow so-called "threads" which are simply slow and bloated
1429process simulations - use fork, it's I<much> faster, cheaper, better). 1446process simulations - use fork, it's I<much> faster, cheaper, better).
1430 1447
1431(It might actually work, but you have been warned). 1448(It might actually work, but you have been warned).
1449
1450
1451=head1 THE PERILS OF SETLOCALE
1452
1453Sometimes people avoid the Perl locale support and directly call the
1454system's setlocale function with C<LC_ALL>.
1455
1456This breaks both perl and modules such as JSON::XS, as stringification of
1457numbers no longer works correcly (e.g. C<$x = 0.1; print "$x"+1> might
1458print C<1>, and JSON::XS might output illegal JSON as JSON::XS relies on
1459perl to stringify numbers).
1460
1461The solution is simple: don't call C<setlocale>, or use it for only those
1462categories you need, such as C<LC_MESSAGES> or C<LC_CTYPE>.
1463
1464If you need C<LC_NUMERIC>, you should enable it only around the code that
1465actually needs it (avoiding stringification of numbers), and restore it
1466afterwards.
1432 1467
1433 1468
1434=head1 BUGS 1469=head1 BUGS
1435 1470
1436While the goal of this module is to be correct, that unfortunately does 1471While the goal of this module is to be correct, that unfortunately does

Diff Legend

Removed lines
+ Added lines
< Changed lines
> Changed lines