/usr/bin/cpanel_json_xs is in libcpanel-json-xs-perl 3.0210-1ubuntu1.
This file is owned by root:root, with mode 0o755.
The actual contents of the file can be viewed below.
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 96 97 98 99 100 101 102 103 104 105 106 107 108 109 110 111 112 113 114 115 116 117 118 119 120 121 122 123 124 125 126 127 128 129 130 131 132 133 134 135 136 137 138 139 140 141 142 143 144 145 146 147 148 149 150 151 152 153 154 155 156 157 158 159 160 161 162 163 164 165 166 167 168 169 170 171 172 173 174 175 176 177 178 179 180 181 182 183 184 185 186 187 188 189 190 191 192 193 194 195 196 197 198 199 200 201 202 203 204 205 206 207 208 209 210 211 212 213 214 215 216 217 218 219 220 221 222 223 224 225 226 227 228 229 230 231 232 233 234 235 236 237 238 239 240 241 242 243 244 245 246 247 248 249 250 251 252 253 254 255 256 257 258 259 260 261 262 263 264 265 266 267 268 269 270 | #!/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<cpanel_json_xs> converts between some input and output formats (one of them is
JSON).
The default input format is C<json> and the default output format is
C<json-pretty>.
=head1 OPTIONS
=over 4
=item -v
Be slightly more verbose.
=item -f fromformat
Read a file in the given format from STDIN.
C<fromformat> 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 - use 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 "-t dump"
=item yaml - YAML (avoid at all costs, requires the YAML module :)
=item string - do not attempt to decode the file data
=item none - nothing is read, creates an C<undef> scalar - mainly useful with C<-e>
=back
=item -t toformat
Write the file in the given format to STDOUT.
C<toformat> 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
->allow_stringify->allow_blessed->convert_blessed->allow_unknown
->allow_tags->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 - use Convert::Bencode, if available (used by torrent files, among others)
=item clzf - Compress::LZF format
=item yaml - YAML
=item dump - Data::Dump
=item dumper - Data::Dumper
=item string - writes the data out as if it were a string
=item none - nothing gets written, mainly useful together with C<-e>
Note that Data::Dumper doesn't handle self-referential data structures
correctly - use "dump" 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<$_>, and whatever is in there is written out afterwards.
=back
=head1 EXAMPLES
cpanel_json_xs -t none <isitreally.json
"JSON Lint" - tries to parse the file F<isitreally.json> 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.
<src.json cpanel_json_xs >pretty.json
Prettify the JSON file F<src.json> to F<dst.json>.
cpanel_json_xs -f storable-file <file
Read the serialized Storable file F<file> and print a human-readable JSON
version of it to STDOUT.
cpanel_json_xs -f storable-file -t yaml <file
Same as above, but write YAML instead (not using JSON at all :)
cpanel_json_xs -f none -e '$_ = [1, 2, 3]'
Dump the perl array as UTF-8 encoded JSON text.
<torrentfile cpanel_json_xs -f bencode -e '$_ = join "\n", map @$_, @{$_->{"announce-list"}}' -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<Cpanel::JSON::XS> and pretty-print it.
=head1 AUTHOR
Copyright (C) 2008 Marc Lehmann <json@schmorp.de>
=cut
use strict;
use Getopt::Long;
use Storable ();
use Encode;
use Cpanel::JSON::XS;
my $opt_verbose;
my $opt_from = "json";
my $opt_to = "json-pretty";
my $opt_eval;
Getopt::Long::Configure ("bundling", "no_ignore_case", "require_order");
GetOptions(
"v" => \$opt_verbose,
"f=s" => \$opt_from,
"t=s" => \$opt_to,
"e=s" => \$opt_eval,
) or die "Usage: $0 [-v] -f fromformat [-e code] [-t toformat]\n";
sub enc {
$_ = shift;
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";
warn "input text encoding is $enc\n" if $opt_verbose;
$enc;
}
my %F = (
"none" => sub { undef },
"string" => sub { $_ },
"json" => sub {
Cpanel::JSON::XS->new->decode (decode enc($_), $_)
},
"json-nonref" => sub {
Cpanel::JSON::XS->new->allow_nonref->decode (decode enc($_), $_)
},
"json-relaxed" => sub {
Cpanel::JSON::XS->new->relaxed->decode (decode enc($_), $_)
},
"json-unknown" => sub {
Cpanel::JSON::XS->new->allow_unknown->decode (decode enc($_), $_)
},
"storable" => sub { Storable::thaw $_ },
"storable-file" => sub { open my $fh, "<", \$_; Storable::fd_retrieve $fh },
"bencode" => sub { require Convert::Bencode; Convert::Bencode::bdecode ($_) },
"clzf" => sub { require Compress::LZF; Compress::LZF::sthaw ($_) },
"yaml" => sub { require YAML; YAML::Load ($_) },
"eval" => sub { my $v = eval "no strict; no warnings; no utf8;\n#line 1 \"input\"\n$_"; die "$@" if $@; $v },
);
my %T = (
"none" => sub { "" },
"string" => sub { $_ },
"json" => sub { encode_json $_ },
"json-utf-8" => sub { encode_json $_ },
"json-pretty" => sub { Cpanel::JSON::XS->new->utf8->pretty->canonical->encode ($_) },
"json-stringify"=> sub { Cpanel::JSON::XS->new->utf8->pretty->canonical->allow_stringify->encode ($_) },
"json-relaxed" => sub { Cpanel::JSON::XS->new->utf8->pretty->canonical
->allow_stringify->allow_blessed->convert_blessed
->allow_unknown->allow_tags->stringify_infnan(1)
->encode ($_) },
"json-utf-16le" => sub { encode "utf-16le", Cpanel::JSON::XS->new->encode ($_) },
"json-utf-16be" => sub { encode "utf-16be", Cpanel::JSON::XS->new->encode ($_) },
"json-utf-32le" => sub { encode "utf-32le", Cpanel::JSON::XS->new->encode ($_) },
"json-utf-32be" => sub { encode "utf-32be", Cpanel::JSON::XS->new->encode ($_) },
"storable" => sub { Storable::nfreeze $_ },
"storable-file" => sub { open my $fh, ">", \my $buf; Storable::nstore_fd $_, $fh; $buf },
"bencode" => sub { require Convert::Bencode; Convert::Bencode::bencode ($_) },
"clzf" => sub { require Compress::LZF; Compress::LZF::sfreeze_cr ($_) },
"yaml" => sub { require YAML; YAML::Dump ($_) },
"dumper" => 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($_)
},
"dump" => sub {
require Data::Dump;
local $Data::Dump::TRY_BASE64 = 0;
Data::Dump::dump ($_) . "\n"
},
);
$F{$opt_from}
or die "$opt_from: not a valid fromformat\n";
$T{$opt_to}
or die "$opt_from: not a valid toformat\n";
if ($opt_from ne "none") {
local $/;
binmode STDIN; # stupid perl sometimes thinks its funny
$_ = <STDIN>;
}
$_ = $F{$opt_from}->();
eval $opt_eval;
die $@ if $@;
$_ = $T{$opt_to}->();
binmode STDOUT;
syswrite STDOUT, $_;
|