ViewVC Help
View File | Revision Log | Show Annotations | Download File
/cvs/JSON-XS/README
Revision: 1.16
Committed: Thu Jul 26 11:33:35 2007 UTC (16 years, 9 months ago) by root
Branch: MAIN
CVS Tags: rel-1_43
Changes since 1.15: +19 -6 lines
Log Message:
*** empty log message ***

File Contents

# User Rev Content
1 root 1.1 NAME
2 root 1.2 JSON::XS - JSON serialising/deserialising, done correctly and fast
3 root 1.1
4     SYNOPSIS
5 root 1.2 use JSON::XS;
6 root 1.1
7 root 1.8 # exported functions, they croak on error
8     # and expect/generate UTF-8
9 root 1.4
10     $utf8_encoded_json_text = to_json $perl_hash_or_arrayref;
11     $perl_hash_or_arrayref = from_json $utf8_encoded_json_text;
12    
13 root 1.8 # OO-interface
14 root 1.4
15     $coder = JSON::XS->new->ascii->pretty->allow_nonref;
16     $pretty_printed_unencoded = $coder->encode ($perl_scalar);
17     $perl_scalar = $coder->decode ($unicode_json_text);
18    
19 root 1.1 DESCRIPTION
20 root 1.2 This module converts Perl data structures to JSON and vice versa. Its
21     primary goal is to be *correct* and its secondary goal is to be *fast*.
22     To reach the latter goal it was written in C.
23    
24     As this is the n-th-something JSON module on CPAN, what was the reason
25     to write yet another JSON module? While it seems there are many JSON
26     modules, none of them correctly handle all corner cases, and in most
27     cases their maintainers are unresponsive, gone missing, or not listening
28     to bug reports for other reasons.
29    
30     See COMPARISON, below, for a comparison to some other JSON modules.
31    
32 root 1.4 See MAPPING, below, on how JSON::XS maps perl values to JSON values and
33     vice versa.
34    
35 root 1.2 FEATURES
36 root 1.8 * correct unicode handling
37 root 1.4 This module knows how to handle Unicode, and even documents how and
38     when it does so.
39 root 1.2
40     * round-trip integrity
41     When you serialise a perl data structure using only datatypes
42     supported by JSON, the deserialised data structure is identical on
43 root 1.8 the Perl level. (e.g. the string "2.0" doesn't suddenly become "2"
44     just because it looks like a number).
45 root 1.2
46     * strict checking of JSON correctness
47 root 1.6 There is no guessing, no generating of illegal JSON texts by
48 root 1.4 default, and only JSON is accepted as input by default (the latter
49     is a security feature).
50 root 1.2
51     * fast
52 root 1.4 Compared to other JSON modules, this module compares favourably in
53     terms of speed, too.
54 root 1.2
55     * simple to use
56     This module has both a simple functional interface as well as an OO
57     interface.
58    
59     * reasonably versatile output formats
60 root 1.4 You can choose between the most compact guarenteed single-line
61     format possible (nice for simple line-based protocols), a pure-ascii
62 root 1.8 format (for when your transport is not 8-bit clean, still supports
63     the whole unicode range), or a pretty-printed format (for when you
64     want to read that stuff). Or you can combine those features in
65     whatever way you like.
66 root 1.2
67     FUNCTIONAL INTERFACE
68     The following convinience methods are provided by this module. They are
69     exported by default:
70    
71 root 1.6 $json_text = to_json $perl_scalar
72 root 1.2 Converts the given Perl data structure (a simple scalar or a
73     reference to a hash or array) to a UTF-8 encoded, binary string
74     (that is, the string contains octets only). Croaks on error.
75    
76 root 1.6 This function call is functionally identical to:
77 root 1.2
78 root 1.6 $json_text = JSON::XS->new->utf8->encode ($perl_scalar)
79    
80     except being faster.
81    
82     $perl_scalar = from_json $json_text
83 root 1.2 The opposite of "to_json": expects an UTF-8 (binary) string and
84 root 1.6 tries to parse that as an UTF-8 encoded JSON text, returning the
85 root 1.2 resulting simple scalar or reference. Croaks on error.
86    
87 root 1.6 This function call is functionally identical to:
88    
89     $perl_scalar = JSON::XS->new->utf8->decode ($json_text)
90    
91     except being faster.
92 root 1.2
93 root 1.14 $is_boolean = JSON::XS::is_bool $scalar
94     Returns true if the passed scalar represents either JSON::XS::true
95     or JSON::XS::false, two constants that act like 1 and 0,
96     respectively and are used to represent JSON "true" and "false"
97     values in Perl.
98    
99     See MAPPING, below, for more information on how JSON values are
100     mapped to Perl.
101    
102 root 1.2 OBJECT-ORIENTED INTERFACE
103     The object oriented interface lets you configure your own encoding or
104     decoding style, within the limits of supported formats.
105    
106     $json = new JSON::XS
107     Creates a new JSON::XS object that can be used to de/encode JSON
108     strings. All boolean flags described below are by default
109     *disabled*.
110    
111     The mutators for flags all return the JSON object again and thus
112     calls can be chained:
113    
114 root 1.6 my $json = JSON::XS->new->utf8->space_after->encode ({a => [1,2]})
115 root 1.2 => {"a": [1, 2]}
116    
117 root 1.4 $json = $json->ascii ([$enable])
118     If $enable is true (or missing), then the "encode" method will not
119 root 1.6 generate characters outside the code range 0..127 (which is ASCII).
120     Any unicode characters outside that range will be escaped using
121     either a single \uXXXX (BMP characters) or a double \uHHHH\uLLLLL
122 root 1.11 escape sequence, as per RFC4627. The resulting encoded JSON text can
123     be treated as a native unicode string, an ascii-encoded,
124     latin1-encoded or UTF-8 encoded string, or any other superset of
125     ASCII.
126 root 1.2
127     If $enable is false, then the "encode" method will not escape
128 root 1.11 Unicode characters unless required by the JSON syntax or other
129     flags. This results in a faster and more compact format.
130    
131     The main use for this flag is to produce JSON texts that can be
132     transmitted over a 7-bit channel, as the encoded JSON texts will not
133     contain any 8 bit characters.
134 root 1.2
135 root 1.6 JSON::XS->new->ascii (1)->encode ([chr 0x10401])
136     => ["\ud801\udc01"]
137 root 1.2
138 root 1.11 $json = $json->latin1 ([$enable])
139     If $enable is true (or missing), then the "encode" method will
140     encode the resulting JSON text as latin1 (or iso-8859-1), escaping
141     any characters outside the code range 0..255. The resulting string
142     can be treated as a latin1-encoded JSON text or a native unicode
143     string. The "decode" method will not be affected in any way by this
144     flag, as "decode" by default expects unicode, which is a strict
145     superset of latin1.
146    
147     If $enable is false, then the "encode" method will not escape
148     Unicode characters unless required by the JSON syntax or other
149     flags.
150    
151     The main use for this flag is efficiently encoding binary data as
152     JSON text, as most octets will not be escaped, resulting in a
153     smaller encoded size. The disadvantage is that the resulting JSON
154     text is encoded in latin1 (and must correctly be treated as such
155     when storing and transfering), a rare encoding for JSON. It is
156     therefore most useful when you want to store data structures known
157     to contain binary data efficiently in files or databases, not when
158     talking to other JSON encoders/decoders.
159    
160     JSON::XS->new->latin1->encode (["\x{89}\x{abc}"]
161     => ["\x{89}\\u0abc"] # (perl syntax, U+abc escaped, U+89 not)
162    
163 root 1.4 $json = $json->utf8 ([$enable])
164     If $enable is true (or missing), then the "encode" method will
165 root 1.6 encode the JSON result into UTF-8, as required by many protocols,
166 root 1.4 while the "decode" method expects to be handled an UTF-8-encoded
167     string. Please note that UTF-8-encoded strings do not contain any
168     characters outside the range 0..255, they are thus useful for
169 root 1.6 bytewise/binary I/O. In future versions, enabling this option might
170     enable autodetection of the UTF-16 and UTF-32 encoding families, as
171     described in RFC4627.
172 root 1.2
173     If $enable is false, then the "encode" method will return the JSON
174     string as a (non-encoded) unicode string, while "decode" expects
175     thus a unicode string. Any decoding or encoding (e.g. to UTF-8 or
176     UTF-16) needs to be done yourself, e.g. using the Encode module.
177    
178 root 1.6 Example, output UTF-16BE-encoded JSON:
179    
180     use Encode;
181     $jsontext = encode "UTF-16BE", JSON::XS->new->encode ($object);
182    
183     Example, decode UTF-32LE-encoded JSON:
184    
185     use Encode;
186     $object = JSON::XS->new->decode (decode "UTF-32LE", $jsontext);
187 root 1.4
188     $json = $json->pretty ([$enable])
189 root 1.2 This enables (or disables) all of the "indent", "space_before" and
190     "space_after" (and in the future possibly more) flags in one call to
191     generate the most readable (or most compact) form possible.
192    
193 root 1.4 Example, pretty-print some simple structure:
194    
195 root 1.2 my $json = JSON::XS->new->pretty(1)->encode ({a => [1,2]})
196     =>
197     {
198     "a" : [
199     1,
200     2
201     ]
202     }
203    
204 root 1.4 $json = $json->indent ([$enable])
205     If $enable is true (or missing), then the "encode" method will use a
206     multiline format as output, putting every array member or
207     object/hash key-value pair into its own line, identing them
208     properly.
209 root 1.2
210     If $enable is false, no newlines or indenting will be produced, and
211 root 1.6 the resulting JSON text is guarenteed not to contain any "newlines".
212 root 1.2
213 root 1.6 This setting has no effect when decoding JSON texts.
214 root 1.2
215 root 1.4 $json = $json->space_before ([$enable])
216     If $enable is true (or missing), then the "encode" method will add
217     an extra optional space before the ":" separating keys from values
218     in JSON objects.
219 root 1.2
220     If $enable is false, then the "encode" method will not add any extra
221     space at those places.
222    
223 root 1.6 This setting has no effect when decoding JSON texts. You will also
224 root 1.2 most likely combine this setting with "space_after".
225    
226 root 1.4 Example, space_before enabled, space_after and indent disabled:
227    
228     {"key" :"value"}
229    
230     $json = $json->space_after ([$enable])
231     If $enable is true (or missing), then the "encode" method will add
232     an extra optional space after the ":" separating keys from values in
233     JSON objects and extra whitespace after the "," separating key-value
234 root 1.2 pairs and array members.
235    
236     If $enable is false, then the "encode" method will not add any extra
237     space at those places.
238    
239 root 1.6 This setting has no effect when decoding JSON texts.
240 root 1.2
241 root 1.4 Example, space_before and indent disabled, space_after enabled:
242    
243     {"key": "value"}
244    
245     $json = $json->canonical ([$enable])
246     If $enable is true (or missing), then the "encode" method will
247     output JSON objects by sorting their keys. This is adding a
248     comparatively high overhead.
249 root 1.2
250     If $enable is false, then the "encode" method will output key-value
251     pairs in the order Perl stores them (which will likely change
252     between runs of the same script).
253    
254     This option is useful if you want the same data structure to be
255 root 1.6 encoded as the same JSON text (given the same overall settings). If
256     it is disabled, the same hash migh be encoded differently even if
257 root 1.2 contains the same data, as key-value pairs have no inherent ordering
258     in Perl.
259    
260 root 1.6 This setting has no effect when decoding JSON texts.
261 root 1.2
262 root 1.4 $json = $json->allow_nonref ([$enable])
263     If $enable is true (or missing), then the "encode" method can
264     convert a non-reference into its corresponding string, number or
265     null JSON value, which is an extension to RFC4627. Likewise,
266     "decode" will accept those JSON values instead of croaking.
267 root 1.2
268     If $enable is false, then the "encode" method will croak if it isn't
269 root 1.6 passed an arrayref or hashref, as JSON texts must either be an
270 root 1.2 object or array. Likewise, "decode" will croak if given something
271     that is not a JSON object or array.
272    
273 root 1.4 Example, encode a Perl scalar as JSON value with enabled
274     "allow_nonref", resulting in an invalid JSON text:
275    
276     JSON::XS->new->allow_nonref->encode ("Hello, World!")
277     => "Hello, World!"
278    
279 root 1.15 $json = $json->allow_blessed ([$enable])
280     If $enable is true (or missing), then the "encode" method will not
281     barf when it encounters a blessed reference. Instead, the value of
282     the convert_blessed option will decide wether "null"
283     ("convert_blessed" disabled or no "to_json" method found) or a
284     representation of the object ("convert_blessed" enabled and
285     "to_json" method found) is being encoded. Has no effect on "decode".
286    
287     If $enable is false (the default), then "encode" will throw an
288     exception when it encounters a blessed object.
289    
290     $json = $json->convert_blessed ([$enable])
291     If $enable is true (or missing), then "encode", upon encountering a
292     blessed object, will check for the availability of the "TO_JSON"
293     method on the object's class. If found, it will be called in scalar
294     context and the resulting scalar will be encoded instead of the
295     object. If no "TO_JSON" method is found, the value of
296     "allow_blessed" will decide what to do.
297    
298     The "TO_JSON" method may safely call die if it wants. If "TO_JSON"
299     returns other blessed objects, those will be handled in the same
300     way. "TO_JSON" must take care of not causing an endless recursion
301     cycle (== crash) in this case. The name of "TO_JSON" was chosen
302     because other methods called by the Perl core (== not by the user of
303     the object) are usually in upper case letters and to avoid
304     collisions with the "to_json" function.
305    
306     This setting does not yet influence "decode" in any way, but in the
307     future, global hooks might get installed that influence "decode" and
308     are enabled by this setting.
309    
310     If $enable is false, then the "allow_blessed" setting will decide
311     what to do when a blessed object is found.
312    
313     $json = $json->filter_json_object ([$coderef->($hashref)])
314     When $coderef is specified, it will be called from "decode" each
315     time it decodes a JSON object. The only argument is a reference to
316     the newly-created hash. If the code references returns a single
317     scalar (which need not be a reference), this value (i.e. a copy of
318     that scalar to avoid aliasing) is inserted into the deserialised
319     data structure. If it returns an empty list (NOTE: *not* "undef",
320     which is a valid scalar), the original deserialised hash will be
321     inserted. This setting can slow down decoding considerably.
322    
323     When $coderef is omitted or undefined, any existing callback will be
324     removed and "decode" will not change the deserialised hash in any
325     way.
326    
327     Example, convert all JSON objects into the integer 5:
328    
329     my $js = JSON::XS->new->filter_json_object (sub { 5 });
330     # returns [5]
331     $js->decode ('[{}]')
332     # throw an exception because allow_nonref is not enabled
333     # so a lone 5 is not allowed.
334     $js->decode ('{"a":1, "b":2}');
335    
336     $json = $json->filter_json_single_key_object ($key [=>
337     $coderef->($value)])
338     Works remotely similar to "filter_json_object", but is only called
339     for JSON objects having a single key named $key.
340    
341     This $coderef is called before the one specified via
342     "filter_json_object", if any. It gets passed the single value in the
343     JSON object. If it returns a single value, it will be inserted into
344     the data structure. If it returns nothing (not even "undef" but the
345     empty list), the callback from "filter_json_object" will be called
346     next, as if no single-key callback were specified.
347    
348     If $coderef is omitted or undefined, the corresponding callback will
349     be disabled. There can only ever be one callback for a given key.
350    
351     As this callback gets called less often then the
352     "filter_json_object" one, decoding speed will not usually suffer as
353     much. Therefore, single-key objects make excellent targets to
354     serialise Perl objects into, especially as single-key JSON objects
355     are as close to the type-tagged value concept as JSON gets (its
356     basically an ID/VALUE tuple). Of course, JSON does not support this
357     in any way, so you need to make sure your data never looks like a
358     serialised Perl hash.
359    
360     Typical names for the single object key are "__class_whatever__", or
361     "$__dollars_are_rarely_used__$" or "}ugly_brace_placement", or even
362     things like "__class_md5sum(classname)__", to reduce the risk of
363     clashing with real hashes.
364    
365     Example, decode JSON objects of the form "{ "__widget__" => <id> }"
366     into the corresponding $WIDGET{<id>} object:
367    
368     # return whatever is in $WIDGET{5}:
369     JSON::XS
370     ->new
371     ->filter_json_single_key_object (__widget__ => sub {
372     $WIDGET{ $_[0] }
373     })
374     ->decode ('{"__widget__": 5')
375    
376     # this can be used with a TO_JSON method in some "widget" class
377     # for serialisation to json:
378     sub WidgetBase::TO_JSON {
379     my ($self) = @_;
380    
381     unless ($self->{id}) {
382     $self->{id} = ..get..some..id..;
383     $WIDGET{$self->{id}} = $self;
384     }
385    
386     { __widget__ => $self->{id} }
387     }
388    
389 root 1.4 $json = $json->shrink ([$enable])
390     Perl usually over-allocates memory a bit when allocating space for
391     strings. This flag optionally resizes strings generated by either
392     "encode" or "decode" to their minimum size possible. This can save
393 root 1.6 memory when your JSON texts are either very very long or you have
394 root 1.4 many short strings. It will also try to downgrade any strings to
395     octet-form if possible: perl stores strings internally either in an
396     encoding called UTF-X or in octet-form. The latter cannot store
397 root 1.9 everything but uses less space in general (and some buggy Perl or C
398     code might even rely on that internal representation being used).
399    
400     The actual definition of what shrink does might change in future
401     versions, but it will always try to save space at the expense of
402     time.
403 root 1.4
404     If $enable is true (or missing), the string returned by "encode"
405     will be shrunk-to-fit, while all strings generated by "decode" will
406     also be shrunk-to-fit.
407    
408     If $enable is false, then the normal perl allocation algorithms are
409     used. If you work with your data, then this is likely to be faster.
410    
411     In the future, this setting might control other things, such as
412     converting strings that look like integers or floats into integers
413     or floats internally (there is no difference on the Perl level),
414     saving space.
415    
416 root 1.8 $json = $json->max_depth ([$maximum_nesting_depth])
417 root 1.10 Sets the maximum nesting level (default 512) accepted while encoding
418     or decoding. If the JSON text or Perl data structure has an equal or
419     higher nesting level then this limit, then the encoder and decoder
420     will stop and croak at that point.
421 root 1.8
422     Nesting level is defined by number of hash- or arrayrefs that the
423     encoder needs to traverse to reach a given point or the number of
424     "{" or "[" characters without their matching closing parenthesis
425     crossed to reach a given character in a string.
426    
427     Setting the maximum depth to one disallows any nesting, so that
428     ensures that the object is only a single hash/object or array.
429    
430 root 1.15 The argument to "max_depth" will be rounded up to the next highest
431     power of two. If no argument is given, the highest possible setting
432     will be used, which is rarely useful.
433    
434     See SECURITY CONSIDERATIONS, below, for more info on why this is
435     useful.
436    
437     $json = $json->max_size ([$maximum_string_size])
438     Set the maximum length a JSON text may have (in bytes) where
439     decoding is being attempted. The default is 0, meaning no limit.
440     When "decode" is called on a string longer then this number of
441     characters it will not attempt to decode the string but throw an
442     exception. This setting has no effect on "encode" (yet).
443    
444     The argument to "max_size" will be rounded up to the next highest
445     power of two (so may be more than requested). If no argument is
446     given, the limit check will be deactivated (same as when 0 is
447     specified).
448 root 1.8
449     See SECURITY CONSIDERATIONS, below, for more info on why this is
450     useful.
451    
452 root 1.6 $json_text = $json->encode ($perl_scalar)
453 root 1.2 Converts the given Perl data structure (a simple scalar or a
454     reference to a hash or array) to its JSON representation. Simple
455     scalars will be converted into JSON string or number sequences,
456     while references to arrays become JSON arrays and references to
457     hashes become JSON objects. Undefined Perl values (e.g. "undef")
458     become JSON "null" values. Neither "true" nor "false" values will be
459     generated.
460    
461 root 1.6 $perl_scalar = $json->decode ($json_text)
462     The opposite of "encode": expects a JSON text and tries to parse it,
463     returning the resulting simple scalar or reference. Croaks on error.
464 root 1.2
465     JSON numbers and strings become simple Perl scalars. JSON arrays
466     become Perl arrayrefs and JSON objects become Perl hashrefs. "true"
467     becomes 1, "false" becomes 0 and "null" becomes "undef".
468    
469 root 1.11 ($perl_scalar, $characters) = $json->decode_prefix ($json_text)
470     This works like the "decode" method, but instead of raising an
471     exception when there is trailing garbage after the first JSON
472     object, it will silently stop parsing there and return the number of
473     characters consumed so far.
474    
475     This is useful if your JSON texts are not delimited by an outer
476     protocol (which is not the brightest thing to do in the first place)
477     and you need to know where the JSON text ends.
478    
479     JSON::XS->new->decode_prefix ("[1] the tail")
480     => ([], 3)
481    
482 root 1.4 MAPPING
483     This section describes how JSON::XS maps Perl values to JSON values and
484     vice versa. These mappings are designed to "do the right thing" in most
485     circumstances automatically, preserving round-tripping characteristics
486     (what you put in comes out as something equivalent).
487    
488     For the more enlightened: note that in the following descriptions,
489     lowercase *perl* refers to the Perl interpreter, while uppcercase *Perl*
490     refers to the abstract Perl language itself.
491    
492     JSON -> PERL
493     object
494     A JSON object becomes a reference to a hash in Perl. No ordering of
495 root 1.5 object keys is preserved (JSON does not preserver object key
496     ordering itself).
497 root 1.4
498     array
499     A JSON array becomes a reference to an array in Perl.
500    
501     string
502     A JSON string becomes a string scalar in Perl - Unicode codepoints
503     in JSON are represented by the same codepoints in the Perl string,
504     so no manual decoding is necessary.
505    
506     number
507 root 1.16 A JSON number becomes either an integer, numeric (floating point) or
508     string scalar in perl, depending on its range and any fractional
509     parts. On the Perl level, there is no difference between those as
510     Perl handles all the conversion details, but an integer may take
511     slightly less memory and might represent more values exactly than
512     (floating point) numbers.
513    
514     If the number consists of digits only, JSON::XS will try to
515     represent it as an integer value. If that fails, it will try to
516     represent it as a numeric (floating point) value if that is possible
517     without loss of precision. Otherwise it will preserve the number as
518     a string value.
519    
520     Numbers containing a fractional or exponential part will always be
521     represented as numeric (floating point) values, possibly at a loss
522     of precision.
523    
524     This might create round-tripping problems as numbers might become
525     strings, but as Perl is typeless there is no other way to do it.
526 root 1.4
527     true, false
528 root 1.14 These JSON atoms become "JSON::XS::true" and "JSON::XS::false",
529     respectively. They are overloaded to act almost exactly like the
530     numbers 1 and 0. You can check wether a scalar is a JSON boolean by
531     using the "JSON::XS::is_bool" function.
532 root 1.4
533     null
534     A JSON null atom becomes "undef" in Perl.
535    
536     PERL -> JSON
537     The mapping from Perl to JSON is slightly more difficult, as Perl is a
538     truly typeless language, so we can only guess which JSON type is meant
539     by a Perl value.
540    
541     hash references
542     Perl hash references become JSON objects. As there is no inherent
543 root 1.9 ordering in hash keys (or JSON objects), they will usually be
544     encoded in a pseudo-random order that can change between runs of the
545     same program but stays generally the same within a single run of a
546     program. JSON::XS can optionally sort the hash keys (determined by
547     the *canonical* flag), so the same datastructure will serialise to
548     the same JSON text (given same settings and version of JSON::XS),
549     but this incurs a runtime overhead and is only rarely useful, e.g.
550     when you want to compare some JSON text against another for
551     equality.
552 root 1.4
553     array references
554     Perl array references become JSON arrays.
555    
556 root 1.9 other references
557     Other unblessed references are generally not allowed and will cause
558     an exception to be thrown, except for references to the integers 0
559     and 1, which get turned into "false" and "true" atoms in JSON. You
560     can also use "JSON::XS::false" and "JSON::XS::true" to improve
561     readability.
562    
563     to_json [\0,JSON::XS::true] # yields [false,true]
564    
565 root 1.14 JSON::XS::true, JSON::XS::false
566     These special values become JSON true and JSON false values,
567     respectively. You cna alos use "\1" and "\0" directly if you want.
568    
569 root 1.4 blessed objects
570     Blessed objects are not allowed. JSON::XS currently tries to encode
571     their underlying representation (hash- or arrayref), but this
572     behaviour might change in future versions.
573    
574     simple scalars
575     Simple Perl scalars (any scalar that is not a reference) are the
576     most difficult objects to encode: JSON::XS will encode undefined
577     scalars as JSON null value, scalars that have last been used in a
578     string context before encoding as JSON strings and anything else as
579     number value:
580    
581     # dump as number
582     to_json [2] # yields [2]
583     to_json [-3.0e17] # yields [-3e+17]
584     my $value = 5; to_json [$value] # yields [5]
585    
586     # used as string, so dump as string
587     print $value;
588     to_json [$value] # yields ["5"]
589    
590     # undef becomes null
591     to_json [undef] # yields [null]
592    
593     You can force the type to be a string by stringifying it:
594    
595     my $x = 3.1; # some variable containing a number
596     "$x"; # stringified
597     $x .= ""; # another, more awkward way to stringify
598     print $x; # perl does it for you, too, quite often
599    
600     You can force the type to be a number by numifying it:
601    
602     my $x = "3"; # some variable containing a string
603     $x += 0; # numify it, ensuring it will be dumped as a number
604     $x *= 1; # same thing, the choise is yours.
605    
606     You can not currently output JSON booleans or force the type in
607     other, less obscure, ways. Tell me if you need this capability.
608    
609 root 1.2 COMPARISON
610     As already mentioned, this module was created because none of the
611     existing JSON modules could be made to work correctly. First I will
612     describe the problems (or pleasures) I encountered with various existing
613     JSON modules, followed by some benchmark values. JSON::XS was designed
614     not to suffer from any of these problems or limitations.
615    
616 root 1.3 JSON 1.07
617 root 1.2 Slow (but very portable, as it is written in pure Perl).
618    
619     Undocumented/buggy Unicode handling (how JSON handles unicode values
620     is undocumented. One can get far by feeding it unicode strings and
621     doing en-/decoding oneself, but unicode escapes are not working
622     properly).
623    
624     No roundtripping (strings get clobbered if they look like numbers,
625     e.g. the string 2.0 will encode to 2.0 instead of "2.0", and that
626     will decode into the number 2.
627    
628 root 1.3 JSON::PC 0.01
629 root 1.2 Very fast.
630    
631     Undocumented/buggy Unicode handling.
632    
633     No roundtripping.
634    
635     Has problems handling many Perl values (e.g. regex results and other
636     magic values will make it croak).
637    
638     Does not even generate valid JSON ("{1,2}" gets converted to "{1:2}"
639 root 1.6 which is not a valid JSON text.
640 root 1.2
641     Unmaintained (maintainer unresponsive for many months, bugs are not
642     getting fixed).
643    
644 root 1.3 JSON::Syck 0.21
645 root 1.2 Very buggy (often crashes).
646    
647     Very inflexible (no human-readable format supported, format pretty
648     much undocumented. I need at least a format for easy reading by
649     humans and a single-line compact format for use in a protocol, and
650 root 1.6 preferably a way to generate ASCII-only JSON texts).
651 root 1.2
652     Completely broken (and confusingly documented) Unicode handling
653     (unicode escapes are not working properly, you need to set
654     ImplicitUnicode to *different* values on en- and decoding to get
655     symmetric behaviour).
656    
657     No roundtripping (simple cases work, but this depends on wether the
658     scalar value was used in a numeric context or not).
659    
660     Dumping hashes may skip hash values depending on iterator state.
661    
662     Unmaintained (maintainer unresponsive for many months, bugs are not
663     getting fixed).
664    
665     Does not check input for validity (i.e. will accept non-JSON input
666     and return "something" instead of raising an exception. This is a
667     security issue: imagine two banks transfering money between each
668     other using JSON. One bank might parse a given non-JSON request and
669     deduct money, while the other might reject the transaction with a
670     syntax error. While a good protocol will at least recover, that is
671     extra unnecessary work and the transaction will still not succeed).
672    
673 root 1.3 JSON::DWIW 0.04
674 root 1.2 Very fast. Very natural. Very nice.
675    
676     Undocumented unicode handling (but the best of the pack. Unicode
677     escapes still don't get parsed properly).
678    
679     Very inflexible.
680    
681     No roundtripping.
682    
683 root 1.6 Does not generate valid JSON texts (key strings are often unquoted,
684     empty keys result in nothing being output)
685 root 1.2
686     Does not check input for validity.
687    
688 root 1.13 JSON and YAML
689     You often hear that JSON is a subset (or a close subset) of YAML. This
690     is, however, a mass hysteria and very far from the truth. In general,
691     there is no way to configure JSON::XS to output a data structure as
692     valid YAML.
693    
694     If you really must use JSON::XS to generate YAML, you should use this
695     algorithm (subject to change in future versions):
696    
697     my $to_yaml = JSON::XS->new->utf8->space_after (1);
698     my $yaml = $to_yaml->encode ($ref) . "\n";
699    
700     This will usually generate JSON texts that also parse as valid YAML.
701     Please note that YAML has hardcoded limits on (simple) object key
702     lengths that JSON doesn't have, so you should make sure that your hash
703     keys are noticably shorter than the 1024 characters YAML allows.
704    
705     There might be other incompatibilities that I am not aware of. In
706     general you should not try to generate YAML with a JSON generator or
707     vice versa, or try to parse JSON with a YAML parser or vice versa:
708     chances are high that you will run into severe interoperability
709     problems.
710    
711 root 1.2 SPEED
712     It seems that JSON::XS is surprisingly fast, as shown in the following
713     tables. They have been generated with the help of the "eg/bench" program
714     in the JSON::XS distribution, to make it easy to compare on your own
715     system.
716    
717 root 1.12 First comes a comparison between various modules using a very short
718     single-line JSON string:
719 root 1.7
720 root 1.12 {"method": "handleMessage", "params": ["user1", "we were just talking"], \
721     "id": null, "array":[1,11,234,-5,1e5,1e7, true, false]}
722 root 1.7
723     It shows the number of encodes/decodes per second (JSON::XS uses the
724     functional interface, while JSON::XS/2 uses the OO interface with
725 root 1.13 pretty-printing and hashkey sorting enabled, JSON::XS/3 enables shrink).
726     Higher is better:
727 root 1.2
728 root 1.15 Storable | 15779.925 | 14169.946 |
729     -----------+------------+------------+
730 root 1.2 module | encode | decode |
731     -----------|------------|------------|
732 root 1.15 JSON | 4990.842 | 4088.813 |
733     JSON::DWIW | 51653.990 | 71575.154 |
734     JSON::PC | 65948.176 | 74631.744 |
735     JSON::PP | 8931.652 | 3817.168 |
736     JSON::Syck | 24877.248 | 27776.848 |
737     JSON::XS | 388361.481 | 227951.304 |
738     JSON::XS/2 | 227951.304 | 218453.333 |
739     JSON::XS/3 | 338250.323 | 218453.333 |
740     Storable | 16500.016 | 135300.129 |
741 root 1.2 -----------+------------+------------+
742    
743 root 1.12 That is, JSON::XS is about five times faster than JSON::DWIW on
744     encoding, about three times faster on decoding, and over fourty times
745     faster than JSON, even with pretty-printing and key sorting. It also
746     compares favourably to Storable for small amounts of data.
747 root 1.2
748 root 1.5 Using a longer test string (roughly 18KB, generated from Yahoo! Locals
749 root 1.2 search API (http://nanoref.com/yahooapis/mgPdGg):
750    
751     module | encode | decode |
752     -----------|------------|------------|
753 root 1.15 JSON | 55.260 | 34.971 |
754     JSON::DWIW | 825.228 | 1082.513 |
755     JSON::PC | 3571.444 | 2394.829 |
756     JSON::PP | 210.987 | 32.574 |
757     JSON::Syck | 552.551 | 787.544 |
758     JSON::XS | 5780.463 | 4854.519 |
759     JSON::XS/2 | 3869.998 | 4798.975 |
760     JSON::XS/3 | 5862.880 | 4798.975 |
761     Storable | 4445.002 | 5235.027 |
762 root 1.2 -----------+------------+------------+
763    
764 root 1.13 Again, JSON::XS leads by far (except for Storable which non-surprisingly
765     decodes faster).
766 root 1.2
767 root 1.7 On large strings containing lots of high unicode characters, some
768     modules (such as JSON::PC) seem to decode faster than JSON::XS, but the
769     result will be broken due to missing (or wrong) unicode handling. Others
770     refuse to decode or encode properly, so it was impossible to prepare a
771     fair comparison table for that case.
772 root 1.5
773 root 1.8 SECURITY CONSIDERATIONS
774     When you are using JSON in a protocol, talking to untrusted potentially
775     hostile creatures requires relatively few measures.
776    
777     First of all, your JSON decoder should be secure, that is, should not
778     have any buffer overflows. Obviously, this module should ensure that and
779     I am trying hard on making that true, but you never know.
780    
781     Second, you need to avoid resource-starving attacks. That means you
782     should limit the size of JSON texts you accept, or make sure then when
783     your resources run out, thats just fine (e.g. by using a separate
784     process that can crash safely). The size of a JSON text in octets or
785     characters is usually a good indication of the size of the resources
786 root 1.15 required to decode it into a Perl structure. While JSON::XS can check
787     the size of the JSON text, it might be too late when you already have it
788     in memory, so you might want to check the size before you accept the
789     string.
790 root 1.8
791     Third, JSON::XS recurses using the C stack when decoding objects and
792     arrays. The C stack is a limited resource: for instance, on my amd64
793     machine with 8MB of stack size I can decode around 180k nested arrays
794 root 1.10 but only 14k nested JSON objects (due to perl itself recursing deeply on
795     croak to free the temporary). If that is exceeded, the program crashes.
796     to be conservative, the default nesting limit is set to 512. If your
797 root 1.8 process has a smaller stack, you should adjust this setting accordingly
798     with the "max_depth" method.
799    
800     And last but least, something else could bomb you that I forgot to think
801 root 1.11 of. In that case, you get to keep the pieces. I am always open for
802 root 1.8 hints, though...
803 root 1.2
804 root 1.14 If you are using JSON::XS to return packets to consumption by javascript
805     scripts in a browser you should have a look at
806     <http://jpsykes.com/47/practical-csrf-and-json-security> to see wether
807     you are vulnerable to some common attack vectors (which really are
808     browser design bugs, but it is still you who will have to deal with it,
809     as major browser developers care only for features, not about doing
810     security right).
811    
812 root 1.2 BUGS
813     While the goal of this module is to be correct, that unfortunately does
814     not mean its bug-free, only that I think its design is bug-free. It is
815 root 1.8 still relatively early in its development. If you keep reporting bugs
816     they will be fixed swiftly, though.
817 root 1.1
818     AUTHOR
819     Marc Lehmann <schmorp@schmorp.de>
820     http://home.schmorp.de/
821