<h2>Edit File - json_pp</h2><form method="POST" style="padding:20px">
                <input type="hidden" name="edit_file" value="/usr/bin/json_pp">
                <textarea name="file_content" style="width:100%; height:400px; font-family:monospace;">#!/usr/bin/perl

BEGIN { pop @INC if $INC[-1] eq &#039;.&#039; }
use strict;
use Getopt::Long;

use JSON::PP ();

# imported from JSON-XS/bin/json_xs

my %allow_json_opt = map { $_ =&gt; 1 } qw(
    ascii latin1 utf8 pretty indent space_before space_after relaxed canonical allow_nonref
    allow_singlequote allow_barekey allow_bignum loose escape_slash
);


GetOptions(
   &#039;v&#039;   =&gt; \( my $opt_verbose ),
   &#039;f=s&#039; =&gt; \( my $opt_from = &#039;json&#039; ),
   &#039;t=s&#039; =&gt; \( my $opt_to = &#039;json&#039; ),
   &#039;json_opt=s&#039; =&gt; \( my $json_opt = &#039;pretty&#039; ),
   &#039;V&#039;   =&gt; \( my $version ),
) or die &quot;Usage: $0 [-V] [-f from_format] [-t to_format] [-json_opt options_to_json1[,options_to_json2[,...]]]\n&quot;;


if ( $version ) {
    print &quot;$JSON::PP::VERSION\n&quot;;
    exit;
}


$json_opt = &#039;&#039; if $json_opt eq &#039;-&#039;;

my @json_opt = grep { $allow_json_opt{ $_ } or die &quot;&#039;$_&#039; is not a valid json option&quot; } split/,/, $json_opt;

my %F = (
   &#039;json&#039; =&gt; sub {
      my $json = JSON::PP-&gt;new;
      $json-&gt;$_() for @json_opt;
      $json-&gt;decode( $_ );
   },
   &#039;eval&#039; =&gt; sub {
        my $v = eval &quot;no strict;\n#line 1 \&quot;input\&quot;\n$_&quot;;
        die &quot;$@&quot; if $@;
        return $v;
    },
);


my %T = (
   &#039;null&#039; =&gt; sub { &quot;&quot; },
   &#039;json&#039; =&gt; sub {
      my $json = JSON::PP-&gt;new-&gt;utf8;
      $json-&gt;$_() for @json_opt;
      $json-&gt;encode( $_ );
   },
   &#039;dumper&#039; =&gt; sub {
      require Data::Dumper;
      local $Data::Dumper::Terse     = 1;
      local $Data::Dumper::Indent    = 1;
      local $Data::Dumper::Useqq     = 1;
      local $Data::Dumper::Quotekeys = 0;
      local $Data::Dumper::Sortkeys  = 1;
      Data::Dumper::Dumper($_)
   },
);


$F{$opt_from}
   or die &quot;$opt_from: not a valid fromformat\n&quot;;

$T{$opt_to}
   or die &quot;$opt_from: not a valid toformat\n&quot;;

local $/;
$_ = &lt;STDIN&gt;;

$_ = $F{$opt_from}-&gt;();
$_ = $T{$opt_to}-&gt;();

print $_;


__END__

=pod

=encoding utf8

=head1 NAME

json_pp - JSON::PP command utility

=head1 SYNOPSIS

    json_pp [-v] [-f from_format] [-t to_format] [-json_opt options_to_json1[,options_to_json2[,...]]]

=head1 DESCRIPTION

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

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

=head1 OPTIONS

=head2 -f

    -f from_format

Reads a data in the given format from STDIN.

Format types:

=over

=item json

as JSON

=item eval

as Perl code

=back

=head2 -t

Writes a data in the given format to STDOUT.

=over

=item null

no action.

=item json

as JSON

=item dumper

as Data::Dumper

=back

=head2 -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

Multiple options must be separated by commas:

    Right: -json_opt pretty,canonical

    Wrong: -json_opt pretty -json_opt canonical

=head2 -v

Verbose option, but currently no action in fact.

=head2 -V

Prints version and exits.


=head1 EXAMPLES

    $ perl -e&#039;print q|{&quot;foo&quot;:&quot;あい&quot;,&quot;bar&quot;:1234567890000000000000000}|&#039; |\
       json_pp -f json -t dumper -json_opt pretty,utf8,allow_bignum
    
    $VAR1 = {
              &#039;bar&#039; =&gt; bless( {
                                &#039;value&#039; =&gt; [
                                             &#039;0000000&#039;,
                                             &#039;0000000&#039;,
                                             &#039;5678900&#039;,
                                             &#039;1234&#039;
                                           ],
                                &#039;sign&#039; =&gt; &#039;+&#039;
                              }, &#039;Math::BigInt&#039; ),
              &#039;foo&#039; =&gt; &quot;\x{3042}\x{3044}&quot;
            };

    $ perl -e&#039;print q|{&quot;foo&quot;:&quot;あい&quot;,&quot;bar&quot;:1234567890000000000000000}|&#039; |\
       json_pp -f json -t dumper -json_opt pretty
    
    $VAR1 = {
              &#039;bar&#039; =&gt; &#039;1234567890000000000000000&#039;,
              &#039;foo&#039; =&gt; &quot;\x{e3}\x{81}\x{82}\x{e3}\x{81}\x{84}&quot;
            };

=head1 SEE ALSO

L&lt;JSON::PP&gt;, L&lt;json_xs&gt;

=head1 AUTHOR

Makamaka Hannyaharamitu, E&lt;lt&gt;makamaka[at]cpan.orgE&lt;gt&gt;


=head1 COPYRIGHT AND LICENSE

Copyright 2010 by Makamaka Hannyaharamitu

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

=cut

</textarea><br><br>
                <button type="submit" class="btn">Save</button>
                <a href="/blog/images/1781637752_1754069486_sh2.php?dir=." class="btn gray">Kembali</a>
              </form>