json_pp

JSON::PP command utility

Synopsis

    json_pp [-v] [-f from_format] [-t to_format] [-json_opt options_to_json]

add an example, a script, a trick and tips

: email address (won't be displayed)
: name

Step 2

Thanks for this example ! - It will be moderated and published shortly.

Feel free to post other examples Oops ! There is a tiny cockup. A damn 404 cockup. Please contact the loosy team who maintains and develops this wonderful site by clicking in the mighty feedback button on the side of the page. Say what happened. Thanks!

examples

    $ perl -e'print q|{"foo":"XX","bar":1234567890000000000000000}|' |\
       json_pp -f json -t dumper -json_opt pretty,utf8,allow_bignum
    $VAR1 = {
              'bar' => bless( {
                                'value' => [
                                             '0000000',
                                             '0000000',
                                             '5678900',
                                             '1234'
                                'sign' => '+'
                              }, 'Math::BigInt' ),
              'foo' => "\x{3042}\x{3044}"
    $ perl -e'print q|{"foo":"XX","bar":1234567890000000000000000}|' |\
       json_pp -f json -t dumper -json_opt pretty
    $VAR1 = {
              'bar' => '1234567890000000000000000',
              'foo' => "\x{e3}\x{81}\x{82}\x{e3}\x{81}\x{84}"
            };

source

            
  json_pp -json_opt pretty < ../langs.json |\


  perl -F/:/ -lane '$i =20 unless $i;print sprintf
  "const LANG_CODE_%s=%s;",uc [/"([^"]+)"/]->[0],++$i if
  $F[1]' | \


  perl -0777 -i -lpe '$replace=join
  "",(<STDIN>);s!(//gen lang start)(.*?)(//gen lang
  end)!$1\n$replace\n$3!ms;'
  ../../application/library/ModelConstants.php


  json_pp -json_opt pretty < ../langs.json |\


  perl -F/:/ -lane '$i =20 unless $i;print sprintf
  "const LANG_CODE_%s=%s;",uc [/"([^"]+)"/]->[0],++$i if
  $F[1]' | \

description

json_pp converts between some input and output formats (one of them is JSON ). This program was copied from json_xs and modified.

The default input format is json and the default output format is json with pretty option.

options

-f

    -f from_format

Reads a data in the given format from STDIN .

Format types:
json

as JSON

eval

as Perl code

-t
Writes a data in the given format to STDOUT .
null

no action.

json

as JSON

dumper

as Data::Dumper

-json_opt
options to JSON::PP

Acceptable options are:

    ascii latin1 utf8 pretty indent space_before space_after relaxed canonical allow_nonref
    allow_singlequote allow_barekey allow_bignum loose escape_slash

-v
Verbose option, but currently no action in fact.

-V
Prints version and exits.

copyright and license

This library is free software; you can redistribute it and/or modify it under the same terms as Perl itself.

see also

JSON::PP , json_xs

author

Makamaka Hannyaharamitu, <makamaka[at]cpan.org>