File Manager

003 File Manager

Current Path: /usr/local/bin

📁 ..
📄 2to3-3.8(101 B)
📄 ab(50.54 KB)
📄 addftinfo(63.84 KB)
📄 afmtodit(161.91 KB)
📄 apr-1-config(6.77 KB)
📄 apu-1-config(6.17 KB)
📄 argon2(43.3 KB)
📄 bash(918.65 KB)
📄 bashbug(6.65 KB)
📄 chardetect(972 B)
📄 chardetect-3.8(972 B)
📄 chem(28.51 KB)
📄 corelist(15.02 KB)
📄 cpan(8.17 KB)
📄 curl(163.47 KB)
📄 curl-config(7.33 KB)
📄 curve_keygen(5.88 KB)
📁 db5
📄 db_archive-5(9.28 KB)
📄 db_archive-5.3(9.28 KB)
📄 db_checkpoint-5(10.94 KB)
📄 db_checkpoint-5.3(10.94 KB)
📄 db_deadlock-5(11.12 KB)
📄 db_deadlock-5.3(11.12 KB)
📄 db_dump-5(13.95 KB)
📄 db_dump-5.3(13.95 KB)
📄 db_dump185-5(8.61 KB)
📄 db_dump185-5.3(8.61 KB)
📄 db_hotbackup-5(14.74 KB)
📄 db_hotbackup-5.3(14.74 KB)
📄 db_load-5(25.35 KB)
📄 db_load-5.3(25.35 KB)
📄 db_log_verify-5(12.36 KB)
📄 db_log_verify-5.3(12.36 KB)
📄 db_printlog-5(31.88 KB)
📄 db_printlog-5.3(31.88 KB)
📄 db_recover-5(10.81 KB)
📄 db_recover-5.3(10.81 KB)
📄 db_replicate-5(11.78 KB)
📄 db_replicate-5.3(11.78 KB)
📄 db_stat-5(11.89 KB)
📄 db_stat-5.3(11.89 KB)
📄 db_tuner-5(17.47 KB)
📄 db_tuner-5.3(17.47 KB)
📄 db_upgrade-5(9.81 KB)
📄 db_upgrade-5.3(9.81 KB)
📄 db_verify-5(10.36 KB)
📄 db_verify-5.3(10.36 KB)
📄 dehydrated(80.89 KB)
📄 distro(961 B)
📄 distro-3.8(961 B)
📄 enc2xs(40.78 KB)
📄 encguess(3.01 KB)
📄 envsubst(35.84 KB)
📄 epsffit(11.11 KB)
📄 eqn(181.15 KB)
📄 eqn2graph(3.16 KB)
📄 event_rpcgen.py(53.66 KB)
📄 extractres(2.69 KB)
📄 fixdlsrps(1.53 KB)
📄 fixfmps(605 B)
📄 fixmacps(2.11 KB)
📄 fixpsditps(700 B)
📄 fixpspps(1.28 KB)
📄 fixscribeps(485 B)
📄 fixtpps(705 B)
📄 fixwfwps(863 B)
📄 fixwpps(738 B)
📄 fixwwps(433 B)
📄 ftpasswd(37.06 KB)
📄 ftpcount(46.63 KB)
📄 ftpdctl(328.72 KB)
📄 ftpmail(13.63 KB)
📄 ftpquota(32.21 KB)
📄 ftptop(65.33 KB)
📄 ftpwho(133.71 KB)
📄 gdbm_dump(19.02 KB)
📄 gdbm_load(22.2 KB)
📄 gdbmtool(115.9 KB)
📄 gdiffmk(7.51 KB)
📄 getafm(6.18 KB)
📄 gettext(36.32 KB)
📄 gettext.sh(5.07 KB)
📄 glilypond(18.01 KB)
📄 gperl(6.5 KB)
📄 gpinyin(5.03 KB)
📄 grap2graph(3.08 KB)
📄 grn(118.4 KB)
📄 grodvi(150.01 KB)
📄 groff(130.26 KB)
📄 groffer(8.06 KB)
📄 grog(2.73 KB)
📄 grolbp(149.57 KB)
📄 grolj4(144.72 KB)
📄 gropdf(70.41 KB)
📄 grops(192.28 KB)
📄 grotty(145.68 KB)
📄 h2ph(28.55 KB)
📄 h2xs(59.51 KB)
📄 hpftodit(158.4 KB)
📄 htdbm(18.69 KB)
📄 htdigest(10.75 KB)
📄 htpasswd(17.62 KB)
📄 httxt2dbm(10.3 KB)
📄 iconv(25.27 KB)
📄 idle3.8(99 B)
📄 includeres(1.44 KB)
📄 indexinfo(10.87 KB)
📄 indxbib(73.84 KB)
📄 innochecksum(3.44 MB)
📄 instmodsh(4.2 KB)
📄 json_pp(4.88 KB)
📄 ldapadd(67.1 KB)
📄 ldapcompare(56.88 KB)
📄 ldapdelete(58.27 KB)
📄 ldapexop(57.43 KB)
📄 ldapmodify(67.1 KB)
📄 ldapmodrdn(56.87 KB)
📄 ldappasswd(57.66 KB)
📄 ldapsearch(78.48 KB)
📄 ldapurl(18.74 KB)
📄 ldapwhoami(55.38 KB)
📄 libnetcfg(15.42 KB)
📄 lkbib(80.95 KB)
📄 logresolve(10.15 KB)
📄 lookbib(81.07 KB)
📄 lz4(68.09 KB)
📄 lz4_decompress(7.7 KB)
📄 lz4c(68.09 KB)
📄 lz4cat(68.09 KB)
📄 mmroff(3.75 KB)
📄 my_print_defaults(3.4 MB)
📄 myisam_ftdump(3.63 MB)
📄 myisamchk(3.73 MB)
📄 myisamlog(3.61 MB)
📄 myisampack(3.66 MB)
📄 mysql(3.66 MB)
📄 mysql_config(5.05 KB)
📄 mysql_config_editor(3.4 MB)
📄 mysql_install_db(4.96 MB)
📄 mysql_plugin(3.41 MB)
📄 mysql_secure_installation(3.56 MB)
📄 mysql_ssl_rsa_setup(3.44 MB)
📄 mysql_tzinfo_to_sql(3.37 MB)
📄 mysql_upgrade(4.16 MB)
📄 mysqladmin(3.56 MB)
📄 mysqlbinlog(3.78 MB)
📄 mysqlcheck(3.57 MB)
📄 mysqld_multi(26.39 KB)
📄 mysqld_safe(27.21 KB)
📄 mysqldump(3.63 MB)
📄 mysqldumpslow(7.67 KB)
📄 mysqlimport(3.55 MB)
📄 mysqlpump(3.92 MB)
📄 mysqlshow(3.55 MB)
📄 mysqlslap(3.57 MB)
📄 mysqltest(3.85 MB)
📄 mysqlxtest(4.2 MB)
📄 neqn(919 B)
📄 ngettext(35.89 KB)
📄 nroff(3.21 KB)
📄 paperconf(10.55 KB)
📄 pcre-config(2.31 KB)
📄 pcre2-config(2.13 KB)
📄 pcre2grep(46.03 KB)
📄 pcre2test(166.76 KB)
📄 pcregrep(35.81 KB)
📄 pcretest(103.81 KB)
📄 pdfmom(3.03 KB)
📄 pdfroff(20.96 KB)
📄 perl(7.41 KB)
📄 perl5.32.1(7.41 KB)
📄 perlbug(44.21 KB)
📄 perldoc(274 B)
📄 perlivp(10.58 KB)
📄 perlthanks(44.21 KB)
📄 perror(3.53 MB)
📄 pfbtops(53.68 KB)
📄 php(5.31 MB)
📄 php-cgi(5.24 MB)
📄 php-config(3.16 KB)
📄 phpize(4.42 KB)
📄 pic(231.69 KB)
📄 pic2graph(3.66 KB)
📄 piconv(8.17 KB)
📄 pl2pm(4.44 KB)
📄 pod2html(4.05 KB)
📄 pod2man(14.69 KB)
📄 pod2text(10.56 KB)
📄 pod2usage(3.86 KB)
📄 podchecker(3.58 KB)
📄 post-grohtml(247.92 KB)
📄 pre-grohtml(129.52 KB)
📄 preconv(78.54 KB)
📄 protoc(13.9 KB)
📄 prove(13.35 KB)
📄 prxs(9.25 KB)
📄 psbook(16.39 KB)
📄 psmerge(1.97 KB)
📄 psnup(24.64 KB)
📄 psresize(22.61 KB)
📄 psselect(17.91 KB)
📄 pstops(23.34 KB)
📄 ptar(3.48 KB)
📄 ptardiff(2.58 KB)
📄 ptargrep(4.3 KB)
📄 pybabel(960 B)
📄 pybabel-3.8(960 B)
📄 pydoc3.8(84 B)
📄 python3.8(5.13 KB)
📄 python3.8-config(3.09 KB)
📄 rbash(918.65 KB)
📄 refer(161.39 KB)
📄 replace(3.38 MB)
📄 resolve_stack_dump(3.4 MB)
📄 resolveip(3.4 MB)
📄 roff2dvi(5.58 KB)
📄 roff2html(5.58 KB)
📄 roff2pdf(5.58 KB)
📄 roff2ps(5.58 KB)
📄 roff2text(5.58 KB)
📄 roff2x(5.58 KB)
📄 salt(948 B)
📄 salt-api(956 B)
📄 salt-call(958 B)
📄 salt-cloud(960 B)
📄 salt-cp(954 B)
📄 salt-key(956 B)
📄 salt-master(962 B)
📄 salt-minion(962 B)
📄 salt-proxy(972 B)
📄 salt-run(956 B)
📄 salt-ssh(956 B)
📄 salt-syndic(962 B)
📄 salt-unity(960 B)
📄 screen(435.05 KB)
📄 setvhost.sh(3.05 KB)
📄 shasum(9.75 KB)
📄 showchar(2.51 KB)
📄 soelim(66.83 KB)
📄 splain(18.97 KB)
📄 spm(946 B)
📄 streamzip(5.4 KB)
📄 tbl(149.71 KB)
📄 tfmtodit(68.05 KB)
📄 troff(577.19 KB)
📄 uchardet(8.03 KB)
📄 unlz4(68.09 KB)
📄 xml2-config(1.79 KB)
📄 xmlcatalog(15.22 KB)
📄 xmllint(61.66 KB)
📄 xmlwf(31.56 KB)
📄 xsubpp(5.05 KB)
📄 zipdetails(50.05 KB)
📄 zlib_decompress(7.56 KB)

Editing: json_pp

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

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

use JSON::PP ();

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

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] [-json_opt options_to_json1[,options_to_json2[,...]]]\n";

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

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

my %json_opt;
for my $opt (split /,/, $json_opt) {
    my ($key, $value) = split /=/, $opt, 2;
    $value = 1 unless defined $value;
    die "'$_' is not a valid json option" unless $allow_json_opt{$key};
    $json_opt{$key} = $value;
}

my %F = (
   'json' => sub {
      my $json = JSON::PP->new;
      my $enc =
         /^\x00\x00\x00/s  ? "utf-32be"
       : /^\x00.\x00/s     ? "utf-16be"
       : /^.\x00\x00\x00/s ? "utf-32le"
       : /^.\x00.\x00/s    ? "utf-16le"
       :                     "utf-8";
      for my $key (keys %json_opt) {
        next if $key eq 'utf8';
        $json->$key($json_opt{$key});
      }
      $json->decode( Encode::decode($enc, $_) );
   },
   '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->utf8;
      for my $key (keys %json_opt) {
        $json->$key($json_opt{$key});
      }
      $json->canonical if $json_opt{pretty};
      $json->encode( $_ );
   },
   'dumper' => 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 "$opt_from: not a valid fromformat\n";

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

{
  local $/;
  binmode STDIN;
  $_ = <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_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<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 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'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

003 File Manager

Editing: json_pp

Upload File

Create Folder