Gecko [ www.blackthorn-inc.com ]

Name	Size	Permission	Date
Makefile	2.15 KB	-rw-r--r--	2016-10-10 17:41
Makefile.PL	2.8 KB	-r--r--r--	2014-12-27 11:49
c2ph	35.77 KB	-rwxr-xr-x	2016-10-10 17:41
c2ph.PL	37.81 KB	-r--r--r--	2014-12-27 11:49
config_data	7.08 KB	-rwxr-xr-x	2016-10-10 17:41
config_data.PL	1.45 KB	-r--r--r--	2014-12-27 11:49
corelist	12.51 KB	-rwxr-xr-x	2016-10-10 17:41
corelist.PL	1.44 KB	-r--r--r--	2014-12-27 11:49
cpan	5.75 KB	-rwxr-xr-x	2016-10-10 17:41
cpan.PL	1.4 KB	-r--r--r--	2014-12-27 11:49
enc2xs	38.51 KB	-rwxr-xr-x	2016-10-10 17:41
enc2xs.PL	1.41 KB	-r--r--r--	2014-12-27 11:49
h2ph	27.67 KB	-rwxr-xr-x	2016-10-10 17:41
h2ph.PL	28.84 KB	-r--r--r--	2014-12-27 11:49
h2xs	59.37 KB	-rwxr-xr-x	2016-10-10 17:41
h2xs.PL	60.53 KB	-r--r--r--	2014-12-27 11:49
instmodsh	4.17 KB	-rwxr-xr-x	2016-10-10 17:41
instmodsh.PL	1.46 KB	-r--r--r--	2014-12-27 11:49
json_pp	3.85 KB	-rwxr-xr-x	2016-10-10 17:41
json_pp.PL	1.44 KB	-r--r--r--	2014-12-27 11:49
libnetcfg	15.37 KB	-rwxr-xr-x	2016-10-10 17:41
libnetcfg.PL	16.53 KB	-r--r--r--	2014-12-27 11:49
perlbug	44.31 KB	-rwxr-xr-x	2016-10-10 17:41
perlbug.PL	45.92 KB	-r--r--r--	2014-12-27 11:49
perldoc	246 B	-rwxr-xr-x	2016-10-10 17:41
perldoc.PL	1.65 KB	-r--r--r--	2014-12-27 11:49
perlivp	10.55 KB	-rwxr-xr-x	2016-10-10 17:41
perlivp.PL	12.34 KB	-r--r--r--	2014-12-27 11:49
piconv	8.09 KB	-rwxr-xr-x	2016-10-10 17:41
piconv.PL	1.41 KB	-r--r--r--	2014-12-27 11:49
pl2pm	4.45 KB	-rwxr-xr-x	2016-10-10 17:41
pl2pm.PL	5.6 KB	-r--r--r--	2014-12-27 11:49
pod2html	4.02 KB	-rwxr-xr-x	2016-10-10 17:41
pod2html.PL	1.42 KB	-r--r--r--	2014-12-27 11:49
prove	13.21 KB	-rwxr-xr-x	2016-10-10 17:41
prove.PL	1.41 KB	-r--r--r--	2014-12-27 11:49
pstruct	35.77 KB	-rwxr-xr-x	2016-10-10 17:41
ptar	3.46 KB	-rwxr-xr-x	2016-10-10 17:41
ptar.PL	1.44 KB	-r--r--r--	2014-12-27 11:49
ptardiff	2.44 KB	-rwxr-xr-x	2016-10-10 17:41
ptardiff.PL	1.44 KB	-r--r--r--	2014-12-27 11:49
ptargrep	4.16 KB	-rwxr-xr-x	2016-10-10 17:41
ptargrep.PL	1.44 KB	-r--r--r--	2014-12-27 11:49
shasum	8.84 KB	-rwxr-xr-x	2016-10-10 17:41
shasum.PL	1.44 KB	-r--r--r--	2014-12-27 11:49
splain	18.35 KB	-rwxr-xr-x	2016-10-10 17:41
splain.PL	1.38 KB	-r--r--r--	2014-12-27 11:49
xsubpp	5.03 KB	-rwxr-xr-x	2016-10-10 17:41
xsubpp.PL	1.45 KB	-r--r--r--	2014-12-27 11:49
zipdetails	47.34 KB	-rwxr-xr-x	2016-10-10 17:41
zipdetails.PL	1.45 KB	-r--r--r--	2014-12-27 11:49

Rename

#!/root/localperl/bin/perl
    eval 'exec /root/localperl/bin/perl -S $0 ${1+"$@"}'
	if $running_under_some_shell;
#!/usr/bin/perl

use strict;
use Getopt::Long;

use JSON::PP ();

my $VERSION = '1.00';

# imported from JSON-XS/bin/json_xs

my %allow_json_opt = map { $_ => 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(
   'v'   => \( my $opt_verbose ),
   'f=s' => \( my $opt_from = 'json' ),
   't=s' => \( my $opt_to = 'json' ),
   'json_opt=s' => \( my $json_opt = 'pretty' ),
   'V'   => \( my $version ),
) or die "Usage: $0 [-v] -f from_format [-t to_format]\n";

if ( $version ) {
    print "$VERSION\n";
    exit;
}

$json_opt = '' if $json_opt eq '-';

my @json_opt = grep { $allow_json_opt{ $_ } or die "'$_' is invalid json opttion" } split/,/, $json_opt;

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

my %T = (
   'null' => sub { "" },
   'json' => sub {
      my $json = JSON::PP->new;
      $json->$_() for @json_opt;
      $json->encode( $_ );
   },
   'dumper' => sub {
      require Data::Dumper;
      Data::Dumper::Dumper($_)
   },
);

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

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

local $/;
$_ = <STDIN>;

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

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_json]

=head1 DESCRIPTION

json_pp converts between some input and output formats (one of them is JSON).
This program was copied from L<json_xs> 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

=head2 -v

Verbose option, but currently no action in fact.

=head2 -V

Prints version and exits.

=head1 EXAMPLES

$ perl -e'print q|{"foo":"あい","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":"あい","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}"
            };

=head1 SEE ALSO

L<JSON::PP>, L<json_xs>

=head1 AUTHOR

Makamaka Hannyaharamitu, E<lt>makamaka[at]cpan.orgE<gt>

=head1 COPYRIGHT AND LICENSE

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

=cut