<h2>Edit File: cpanel_json_xs</h2><form method="post"><textarea name="content" rows="20" cols="80">#!/usr/bin/perl

=head1 NAME

cpanel_json_xs - Cpanel::JSON::XS commandline utility

=head1 SYNOPSIS

   cpanel_json_xs [-v] [-f inputformat] [-t outputformat]

=head1 DESCRIPTION

F&lt;cpanel_json_xs&gt; converts between some input and output formats (one of them is
JSON).

The default input format is C&lt;json&gt; and the default output format is
C&lt;json-pretty&gt;.

=head1 OPTIONS

=over 4

=item -v

Be slightly more verbose.

=item -f fromformat

Read a file in the given format from STDIN.

C&lt;fromformat&gt; can be one of:

=over 4

=item json - a json text encoded, either utf-8, utf16-be/le, utf32-be/le

=item json-nonref - json according to RFC 7159

=item json-relaxed - json with all relaxed options

=item json-unknown - json with allow_unknown

=item storable - a Storable frozen value

=item storable-file - a Storable file (Storable has two incompatible formats)

=item bencode - uses one of Net::BitTorrent::Protocol::BEP03::Bencode, Bencode or the broken Convert::Bencode, if available (used by torrent files, among others)

=item clzf - Compress::LZF format (requires that module to be installed)

=item eval - evaluate the given code as (non-utf-8) Perl, basically the reverse of &quot;-t dump&quot;

=item yaml - loose YAML (requires YAML)

=item yaml-tiny - loose YAML (requires YAML::Tiny or CPAN::Meta::YAML)

=item yaml-xs - strict YAML 1.2 (requires YAML::XS)

=item yaml-syck - YAML (requires YAML::Syck)

=item cbor - CBOR (via CBOR::XS)

=item string - do not attempt to decode the file data

=item sereal - Sereal (via Sereal::Decoder)

=item none - nothing is read, creates an C&lt;undef&gt; scalar - mainly useful with C&lt;-e&gt;

=back

=item -t toformat

Write the file in the given format to STDOUT.

C&lt;toformat&gt; can be one of:

=over 4

=item json, json-utf-8 - json, utf-8 encoded

=item json-pretty - as above, but pretty-printed with sorted object keys

=item json-stringify - as json-pretty with allow_stringify

=item json-relaxed  - as json-pretty, but with the additional options

-&gt;allow_stringify-&gt;allow_blessed-&gt;convert_blessed-&gt;allow_unknown
-&gt;allow_tags-&gt;stringify_infnan(1)

=item json-utf-16le, json-utf-16be - little endian/big endian utf-16

=item json-utf-32le, json-utf-32be - little endian/big endian utf-32

=item storable - a Storable frozen value in network format

=item storable-file - a Storable file in network format (Storable has two incompatible formats)

=item bencode - uses one of Net::BitTorrent::Protocol::BEP03::Bencode, Bencode or the broken Convert::Bencode, if available (used by torrent files, among others)

=item clzf - Compress::LZF format

=item yaml - loose YAML (requires YAML)

=item yaml-tiny - loose YAML (requires YAML::Tiny or CPAN::Meta::YAML)

=item yaml-xs - strict YAML 1.2 (requires YAML::XS)

=item yaml-syck - YAML (requires YAML::Syck)

=item dump - Data::Dump

=item dumper - Data::Dumper

=item string - writes the data out as if it were a string

=item sereal - Sereal (via Sereal::Encoder)

=item none - nothing gets written, mainly useful together with C&lt;-e&gt;

Note that Data::Dumper doesn&#039;t handle self-referential data structures
correctly - use &quot;dump&quot; instead.

=back

=item -e code

Evaluate perl code after reading the data and before writing it out again
- can be used to filter, create or extract data. The data that has been
written is in C&lt;$_&gt;, and whatever is in there is written out afterwards.

=back

=head1 EXAMPLES

   cpanel_json_xs -t none &lt;isitreally.json

&quot;JSON Lint&quot; - tries to parse the file F&lt;isitreally.json&gt; as JSON - if it
is valid JSON, the command outputs nothing, otherwise it will print an
error message and exit with non-zero exit status.

   &lt;src.json cpanel_json_xs &gt;pretty.json

Prettify the JSON file F&lt;src.json&gt; to F&lt;dst.json&gt;.

   cpanel_json_xs -f storable-file &lt;file

Read the serialized Storable file F&lt;file&gt; and print a human-readable JSON
version of it to STDOUT.

   cpanel_json_xs -f storable-file -t yaml &lt;file

Same as above, but write YAML instead (not using JSON at all :)

   cpanel_json_xs -f none -e &#039;$_ = [1, 2, 3]&#039;

Dump the perl array as UTF-8 encoded JSON text.

   &lt;torrentfile cpanel_json_xs -f bencode -e &#039;$_ = join &quot;\n&quot;, map @$_, @{$_-&gt;{&quot;announce-list&quot;}}&#039; -t string

Print the tracker list inside a torrent file.

   lwp-request http://cpantesters.perl.org/show/Cpanel-JSON-XS.json | cpanel_json_xs

Fetch the cpan-testers result summary C&lt;Cpanel::JSON::XS&gt; and pretty-print it.

    cpanel_json_xs -f yaml-xs -t yaml-tiny &lt;META.yml   &gt;MYMETA.yml
    cpanel_json_xs -f yaml-tiny -t yaml-xs &lt;MYMETA.yml &gt;XSMETA.yml
    cpanel_json_xs -f yaml -t yaml &lt;XSMETA.yml #BOOM!
    Error: YAML_LOAD_ERR_BAD_MAP_ELEMENT

Compare YAML en- and decoders, and see that YAML::XS generates unparsable YAML
L&lt;https://github.com/ingydotnet/yaml-libyaml-pm/issues/9&gt;

=head1 AUTHOR

Copyright (C) 2008 Marc Lehmann &lt;json@schmorp.de&gt;
Copyright (C) 2016 Cpanel Inc

=cut

use strict;

use Getopt::Long;
use Storable ();
use Encode;

use Cpanel::JSON::XS;

my $opt_verbose;
my $opt_from = &quot;json&quot;;
my $opt_to   = &quot;json-pretty&quot;;
my $opt_eval;

Getopt::Long::Configure (&quot;bundling&quot;, &quot;no_ignore_case&quot;, &quot;require_order&quot;);

GetOptions(
   &quot;v&quot;   =&gt; \$opt_verbose,
   &quot;f=s&quot; =&gt; \$opt_from,
   &quot;t=s&quot; =&gt; \$opt_to,
   &quot;e=s&quot; =&gt; \$opt_eval,
) or die &quot;Usage: $0 [-v] -f fromformat [-e code] [-t toformat]\n&quot;;

sub enc {
  $_ = shift;
  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;;
  warn &quot;input text encoding is $enc\n&quot; if $opt_verbose;
  $enc;
}

my %F = (
   &quot;none&quot;          =&gt; sub { undef },
   &quot;string&quot;        =&gt; sub { $_ },
   &quot;json&quot;          =&gt; sub {
      Cpanel::JSON::XS-&gt;new-&gt;decode (decode enc($_), $_)
   },
   &quot;json-nonref&quot;   =&gt; sub {
      Cpanel::JSON::XS-&gt;new-&gt;allow_nonref-&gt;decode (decode enc($_), $_)
   },
   &quot;json-relaxed&quot;   =&gt; sub {
      Cpanel::JSON::XS-&gt;new-&gt;relaxed-&gt;decode (decode enc($_), $_)
   },
   &quot;json-unknown&quot;   =&gt; sub {
      Cpanel::JSON::XS-&gt;new-&gt;allow_unknown-&gt;decode (decode enc($_), $_)
   },
   &quot;storable&quot;      =&gt; sub { Storable::thaw $_ },
   &quot;storable-file&quot; =&gt; sub { open my $fh, &quot;&lt;&quot;, \$_; Storable::fd_retrieve $fh },
   &quot;bencode&quot;       =&gt; sub {
      if (eval {require Net::BitTorrent::Protocol::BEP03::Bencode }) {
        return Net::BitTorrent::Protocol::BEP03::Bencode::bdecode ($_);
      }
      if (eval {require Bencode}) {
        return Bencode::bdecode ($_);
      }
      require Convert::Bencode; return Convert::Bencode::bdecode ($_);
   },
   &quot;clzf&quot;          =&gt; sub { require Compress::LZF; Compress::LZF::sthaw ($_) },
   &quot;yaml&quot;          =&gt; sub { require YAML; YAML::Load ($_) },
   &quot;yaml-tiny&quot;     =&gt; sub { require CPAN::Meta::YAML; CPAN::Meta::YAML::Load ($_) },
   &quot;yaml-xs&quot;       =&gt; sub { require YAML::XS; YAML::XS::Load ($_) },
   &quot;yaml-syck&quot;     =&gt; sub { require YAML::Syck; YAML::Syck::Load ($_) },
   &quot;cbor&quot;          =&gt; sub { require CBOR::XS; CBOR::XS::decode_cbor ($_) },
   &quot;sereal&quot;        =&gt; sub { require Sereal::Decoder; Sereal::Decoder::decode_sereal ($_) },
   &quot;eval&quot;          =&gt; sub { my $v = eval &quot;no strict; no warnings; no utf8;\n#line 1 \&quot;input\&quot;\n$_&quot;; die &quot;$@&quot; if $@; $v },
);

my %T = (
   &quot;none&quot;          =&gt; sub { &quot;&quot; },
   &quot;string&quot;        =&gt; sub { $_ },
   &quot;json&quot;          =&gt; sub { encode_json $_ },
   &quot;json-utf-8&quot;    =&gt; sub { encode_json $_ },
   &quot;json-pretty&quot;   =&gt; sub { Cpanel::JSON::XS-&gt;new-&gt;utf8-&gt;pretty-&gt;canonical-&gt;encode ($_) },
   &quot;json-stringify&quot;=&gt; sub { Cpanel::JSON::XS-&gt;new-&gt;utf8-&gt;pretty-&gt;canonical-&gt;allow_stringify-&gt;encode ($_) },
   &quot;json-relaxed&quot;  =&gt; sub { Cpanel::JSON::XS-&gt;new-&gt;utf8-&gt;pretty-&gt;canonical
                              -&gt;allow_stringify-&gt;allow_blessed-&gt;convert_blessed
                              -&gt;allow_unknown-&gt;allow_tags-&gt;stringify_infnan(1)
                              -&gt;encode ($_) },
   &quot;json-utf-16le&quot; =&gt; sub { encode &quot;utf-16le&quot;, Cpanel::JSON::XS-&gt;new-&gt;encode ($_) },
   &quot;json-utf-16be&quot; =&gt; sub { encode &quot;utf-16be&quot;, Cpanel::JSON::XS-&gt;new-&gt;encode ($_) },
   &quot;json-utf-32le&quot; =&gt; sub { encode &quot;utf-32le&quot;, Cpanel::JSON::XS-&gt;new-&gt;encode ($_) },
   &quot;json-utf-32be&quot; =&gt; sub { encode &quot;utf-32be&quot;, Cpanel::JSON::XS-&gt;new-&gt;encode ($_) },

   &quot;storable&quot;      =&gt; sub { Storable::nfreeze $_ },
   &quot;storable-file&quot; =&gt; sub { open my $fh, &quot;&gt;&quot;, \my $buf; Storable::nstore_fd $_, $fh; $buf },

   &quot;bencode&quot;       =&gt; sub {
      if (eval {require Net::BitTorrent::Protocol::BEP03::Bencode }) {
        return Net::BitTorrent::Protocol::BEP03::Bencode::bencode ($_);
      }
      if (eval {require Bencode}) {
        return Bencode::bencode ($_);
      }
      require Convert::Bencode; return Convert::Bencode::bencode ($_);
   },
   &quot;clzf&quot;          =&gt; sub { require Compress::LZF; Compress::LZF::sfreeze_cr ($_) },
   &quot;yaml&quot;          =&gt; sub { require YAML; YAML::Dump ($_) },
   &quot;yaml-tiny&quot;     =&gt; sub { require CPAN::Meta::YAML; CPAN::Meta::YAML::Dump ($_) },
   &quot;yaml-xs&quot;       =&gt; sub { require YAML::XS; YAML::XS::Dump ($_) },
   &quot;yaml-syck&quot;     =&gt; sub { require YAML::Syck; YAML::Syck::Dump ($_) },
   &quot;dumper&quot;        =&gt; sub {
      require Data::Dumper;
      #local $Data::Dumper::Purity    = 1; # hopeless case
      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($_)
   },
   &quot;dump&quot;          =&gt; sub {
      require Data::Dump;
      local $Data::Dump::TRY_BASE64 = 0;
      Data::Dump::dump ($_) . &quot;\n&quot;
   },
   &quot;sereal&quot;        =&gt; sub { require Sereal::Encoder; Sereal::Encoder::encode_sereal ($_) },
);

$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;;

if ($opt_from ne &quot;none&quot;) {
   local $/;
   binmode STDIN; # stupid perl sometimes thinks its funny
   $_ = &lt;STDIN&gt;;
}

$_ = $F{$opt_from}-&gt;();

eval $opt_eval;
die $@ if $@;

$_ = $T{$opt_to}-&gt;();

binmode STDOUT;
syswrite STDOUT, $_;


</textarea><br><input type="hidden" name="edit_file" value="cpanel_json_xs"><input type="submit" value="Save"></form>