Skip to content

Instantly share code, notes, and snippets.

@fuba
Created September 25, 2012 07:43
Show Gist options
  • Star 1 You must be signed in to star a gist
  • Fork 0 You must be signed in to fork a gist
  • Save fuba/3780488 to your computer and use it in GitHub Desktop.
Save fuba/3780488 to your computer and use it in GitHub Desktop.
JSON 1.15
$ perl -MJSON -e 'my $t={test=> 1};warn objToJson($t);warn "$t->{test}";warn objToJson($t);'
{"test":1} at -e line 1.
1 at -e line 1.
{"test":1} at -e line 1.
$ perl -MJSON::XS -e 'my $t={test=> 1};warn encode_json($t);warn "$t->{test}";warn encode_json($t);'
{"test":1} at -e line 1.
1 at -e line 1.
{"test":"1"} at -e line 1.
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment