ＳＫＹＳＨＥＬＬＭＡＮＡＧＥＲ

📁 ＳＫＹＳＨＥＬＬＭＡＮＡＧＥＲ PHP v7.4.32

Name	Size	Perm	Actions
📁 e25bd	-	0555	🗑️ 🏷️
📁 wp-includes	-	0755	🗑️ 🏷️
📁 wp-content	-	0555	🗑️ 🏷️
📁 wp-admin	-	0777	🗑️ 🏷️
📁 legion	-	0755	🗑️ 🏷️
📁 pop	-	0755	🗑️ 🏷️
📁 377097	-	0755	🗑️ 🏷️
📁 97a64b	-	0755	🗑️ 🏷️
📁 .tmb	-	0777	🗑️ 🏷️
📁 b9ebed	-	0755	🗑️ 🏷️
📄 caca.php	12.6 KB	0644	🗑️ 🏷️ ⬇️ ✏️
📄 .htaccess	1.13 KB	0555	🗑️ 🏷️ ⬇️ ✏️
📄 wp-blog-header.php	0.34 KB	0644	🗑️ 🏷️ ⬇️ ✏️
📄 wp-comments-post.php	2.28 KB	0644	🗑️ 🏷️ ⬇️ ✏️
📄 wp-config-sample.php	2.93 KB	0644	🗑️ 🏷️ ⬇️ ✏️
📄 wp-config.php	4.33 KB	0666	🗑️ 🏷️ ⬇️ ✏️
📄 wp-cron.php	5.41 KB	0644	🗑️ 🏷️ ⬇️ ✏️
📄 wp-links-opml.php	2.44 KB	0644	🗑️ 🏷️ ⬇️ ✏️
📄 sitemap.xml	7.88 KB	0644	🗑️ 🏷️ ⬇️ ✏️
📄 wp-load.php	3.89 KB	0644	🗑️ 🏷️ ⬇️ ✏️
📄 wp-log1n.php	1.93 KB	0444	🗑️ 🏷️ ⬇️ ✏️
📄 wp-login.php	47.98 KB	0644	🗑️ 🏷️ ⬇️ ✏️
📄 wp-mail.php	8.32 KB	0644	🗑️ 🏷️ ⬇️ ✏️
📄 wp-settings.php	24.01 KB	0644	🗑️ 🏷️ ⬇️ ✏️
📄 wp-signup.php	33.54 KB	0644	🗑️ 🏷️ ⬇️ ✏️
📄 wp-trackback.php	4.8 KB	0644	🗑️ 🏷️ ⬇️ ✏️
📄 xinsertx.php	34.63 KB	0644	🗑️ 🏷️ ⬇️ ✏️
📄 wp-activate.php	7.04 KB	0644	🗑️ 🏷️ ⬇️ ✏️
📄 ryuk.php	36.6 KB	0644	🗑️ 🏷️ ⬇️ ✏️
📄 search.php	1.45 KB	0444	🗑️ 🏷️ ⬇️ ✏️
📄 item.php	2.03 KB	0444	🗑️ 🏷️ ⬇️ ✏️
📄 defaults.php	1.29 KB	0444	🗑️ 🏷️ ⬇️ ✏️
📄 buy.php	1.48 KB	0444	🗑️ 🏷️ ⬇️ ✏️
📄 gagal.php	14.82 KB	0644	🗑️ 🏷️ ⬇️ ✏️
📄 goods.php	1.47 KB	0444	🗑️ 🏷️ ⬇️ ✏️
📄 index.nginx-debian.html	0.6 KB	0644	🗑️ 🏷️ ⬇️ ✏️
📄 index.php	6.83 KB	0444	🗑️ 🏷️ ⬇️ ✏️
📄 index.php0	1.58 KB	0755	🗑️ 🏷️ ⬇️ ✏️
📄 license.txt	19.45 KB	0644	🗑️ 🏷️ ⬇️ ✏️
📄 click.php	1.29 KB	0444	🗑️ 🏷️ ⬇️ ✏️
📄 mah.php	1.93 KB	0444	🗑️ 🏷️ ⬇️ ✏️
📄 networks.php	1.87 KB	0444	🗑️ 🏷️ ⬇️ ✏️
📄 options.php	2 KB	0444	🗑️ 🏷️ ⬇️ ✏️
📄 pages.php	1.44 KB	0444	🗑️ 🏷️ ⬇️ ✏️
📄 plugins.php	1.93 KB	0444	🗑️ 🏷️ ⬇️ ✏️
📄 product.php	1.87 KB	0444	🗑️ 🏷️ ⬇️ ✏️
📄 readme.html	7.22 KB	0644	🗑️ 🏷️ ⬇️ ✏️
📄 robots.txt	0.37 KB	0444	🗑️ 🏷️ ⬇️ ✏️
📄 xmlrpc.php	3.16 KB	0644	🗑️ 🏷️ ⬇️ ✏️

Edit: json_pp

#!/usr/bin/perl
    eval 'exec /usr/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 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 not a valid json option" } 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

📁 ＳＫＹＳＨＥＬＬ ＭＡＮＡＧＥＲ PHP v7.4.32

Edit: json_pp

📁 ＳＫＹＳＨＥＬＬＭＡＮＡＧＥＲ PHP v7.4.32