/usr/bin/json_xs is in libjson-xs-perl 2.320-1+b1.
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 | #!/usr/bin/perl
eval 'exec /usr/bin/perl -S $0 ${1+"$@"}'
if 0; # not running under some shell
=head1 NAME
json_xs - JSON::XS commandline utility
=head1 SYNOPSIS
json_xs [-v] [-f inputformat] [-t outputformat]
=head1 DESCRIPTION
F<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 storable - a Storable frozen value
=item storable-file - a Storable file (Storable has two incompatible formats)
=item clzf - Compress::LZF format (requires that module to be installed)
=item yaml - YAML (avoid at all costs, requires the YAML module :)
=item eval - evaluate the given code as (non-utf-8) Perl, basically the reverse of "-t dump"
=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
=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 clzf - Compress::LZF format
=item yaml - YAML
=item dump - Data::Dump
=item dumper - Data::Dumper
Note that Data::Dumper doesn't handle self-referential data structures
correctly - use "dump" instead.
=back
=back
=head1 EXAMPLES
json_xs -t null <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 json_xs >pretty.json
Prettify the JSON file F<src.json> to F<dst.json>.
json_xs -f storable-file <file
Read the serialised Storable file F<file> and print a human-readable JSON
version of it to STDOUT.
json_xs -f storable-file -t yaml <file
Same as above, but write YAML instead (not using JSON at all :)
lwp-request http://cpantesters.perl.org/show/JSON-XS.json | json_xs
Fetch the cpan-testers result summary C<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 JSON::XS;
my $opt_verbose;
my $opt_from = "json";
my $opt_to = "json-pretty";
Getopt::Long::Configure ("bundling", "no_ignore_case", "require_order");
GetOptions(
"v" => \$opt_verbose,
"f=s" => \$opt_from,
"t=s" => \$opt_to,
) or die "Usage: $0 [-v] -f fromformat [-t toformat]\n";
my %F = (
"json" => sub {
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;
JSON::XS->new->decode (decode $enc, $_)
},
"storable" => sub { Storable::thaw $_ },
"storable-file" => sub { open my $fh, "<", \$_; Storable::fd_retrieve $fh },
"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 = (
"null" => sub { "" },
"json" => sub { encode_json $_ },
"json-utf-8" => sub { encode_json $_ },
"json-pretty" => sub { JSON::XS->new->utf8->pretty->encode ($_) },
"json-utf-16le" => sub { encode "utf-16le", JSON::XS->new->encode ($_) },
"json-utf-16be" => sub { encode "utf-16be", JSON::XS->new->encode ($_) },
"json-utf-32le" => sub { encode "utf-32le", JSON::XS->new->encode ($_) },
"json-utf-32be" => sub { encode "utf-32be", JSON::XS->new->encode ($_) },
"storable" => sub { Storable::nfreeze $_ },
"storable-file" => sub { open my $fh, ">", \my $buf; Storable::nstore_fd $_, $fh; $buf },
"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";
{
local $/;
binmode STDIN; # stupid perl sometimes thinks its funny
$_ = <STDIN>;
}
$_ = $F{$opt_from}->();
$_ = $T{$opt_to}->();
binmode STDOUT;
print $_;
|