Gecko [ www.vortexaion.com ]

Name	Size	Permission	Date
SOAPsh.bat	3.35 KB	-rwxrwxrwx	2021-01-24 18:08
SOAPsh.pl	2.75 KB	-rw-rw-rw-	2021-01-24 18:01
bdf2gdfont.bat	5.26 KB	-rwxrwxrwx	2021-01-24 18:08
bdf2gdfont.pl	4.75 KB	-rw-rw-rw-	2021-01-24 17:46
chartex	5.67 KB	-rw-rw-rw-	2021-01-24 18:01
chartex.bat	6.47 KB	-rwxrwxrwx	2021-01-24 18:08
config_data	7.2 KB	-rw-rw-rw-	2021-01-24 18:01
config_data.bat	7.73 KB	-rwxrwxrwx	2024-07-26 17:42
corelist.bat	15.75 KB	-rwxrwxrwx	2023-11-19 11:41
cpan	8.06 KB	-rw-rw-rw-	2021-01-24 18:01
cpan-mirrors	4.18 KB	-rw-rw-rw-	2021-01-24 18:01
cpan-mirrors.bat	5.1 KB	-rwxrwxrwx	2021-01-24 18:08
cpan-outdated	8.85 KB	-rw-rw-rw-	2021-01-24 18:01
cpan-outdated.bat	9.67 KB	-rwxrwxrwx	2021-01-24 18:08
cpan.bat	9.16 KB	-rwxrwxrwx	2021-01-24 18:08
cpan2dist	21.22 KB	-rw-rw-rw-	2021-01-24 18:01
cpan2dist.bat	22.39 KB	-rwxrwxrwx	2021-01-24 18:08
cpandb	6.6 KB	-rw-rw-rw-	2021-01-24 18:01
cpandb.bat	7.37 KB	-rwxrwxrwx	2021-01-24 18:08
cpanel_json_xs	9.75 KB	-rw-rw-rw-	2021-01-24 18:01
cpanel_json_xs.bat	10.58 KB	-rwxrwxrwx	2021-01-24 18:08
cpanfile-dump	3.45 KB	-rw-rw-rw-	2021-01-24 16:20
cpanfile-dump.bat	4.08 KB	-rwxrwxrwx	2021-01-24 18:08
cpanm	295.67 KB	-rw-rw-rw-	2021-01-24 16:36
cpanm.bat	297.23 KB	-rwxrwxrwx	2021-01-24 18:08
cpanp	3.22 KB	-rw-rw-rw-	2021-01-24 18:01
cpanp-run-perl	459 B	-rw-rw-rw-	2021-01-24 16:38
cpanp-run-perl.bat	990 B	-rwxrwxrwx	2021-01-24 18:08
cpanp.bat	3.84 KB	-rwxrwxrwx	2021-01-24 18:08
crc32	1.01 KB	-rw-rw-rw-	2021-01-24 18:01
crc32.bat	1.57 KB	-rwxrwxrwx	2021-01-24 18:08
dbicadmin	7 KB	-rw-rw-rw-	2021-01-24 18:01
dbicadmin.bat	7.87 KB	-rwxrwxrwx	2021-01-24 18:08
dbilogstrip	1.39 KB	-rw-rw-rw-	2021-01-24 17:15
dbilogstrip.bat	1.89 KB	-rwxrwxrwx	2021-01-24 18:08
dbiprof	6.31 KB	-rw-rw-rw-	2021-01-24 17:15
dbiprof.bat	6.82 KB	-rwxrwxrwx	2021-01-24 18:08
dbiproxy	5.44 KB	-rw-rw-rw-	2021-01-24 17:15
dbiproxy.bat	5.95 KB	-rwxrwxrwx	2021-01-24 18:08
enc2xs	40.68 KB	-rw-rw-rw-	2021-01-24 18:01
enc2xs.bat	42.87 KB	-rwxrwxrwx	2021-01-24 18:08
encguess	2.91 KB	-rw-rw-rw-	2021-01-24 18:01
encguess.bat	3.8 KB	-rwxrwxrwx	2021-01-24 18:08
exe_update.bat	4.71 KB	-rwxrwxrwx	2021-01-24 18:08
exe_update.pl	4.05 KB	-rw-rw-rw-	2021-01-24 18:01
exetype.bat	3.53 KB	-rwxrwxrwx	2021-01-24 18:08
extract_vba	2.98 KB	-rw-rw-rw-	2021-01-24 18:01
extract_vba.bat	3.62 KB	-rwxrwxrwx	2021-01-24 18:08
factor.bat	3.77 KB	-rwxrwxrwx	2021-01-24 18:08
factor.pl	3.16 KB	-rw-rw-rw-	2021-01-24 18:01
findrule	3.24 KB	-rw-rw-rw-	2021-01-24 16:52
findrule.bat	3.88 KB	-rwxrwxrwx	2021-01-24 18:08
h2ph.bat	30.27 KB	-rwxrwxrwx	2024-07-26 17:42
h2xs.bat	62.43 KB	-rwxrwxrwx	2024-07-26 17:42
htmltree	1.28 KB	-rw-rw-rw-	2021-01-24 18:01
htmltree.bat	1.81 KB	-rwxrwxrwx	2024-07-26 17:42
hypnotoad	1.03 KB	-rw-rw-rw-	2021-01-24 16:59
hypnotoad.bat	1.58 KB	-rwxrwxrwx	2021-01-24 18:08
instmodsh	4.09 KB	-rw-rw-rw-	2021-01-24 18:01
instmodsh.bat	5.03 KB	-rwxrwxrwx	2021-01-24 18:08
json_pp	4.77 KB	-rw-rw-rw-	2021-01-24 18:01
json_pp.bat	5.52 KB	-rwxrwxrwx	2024-07-26 17:42
json_xs	6.84 KB	-rw-rw-rw-	2021-01-24 18:01
json_xs.bat	7.6 KB	-rwxrwxrwx	2021-01-24 18:08
kwalitee-metrics	2.34 KB	-rw-rw-rw-	2021-01-24 18:01
kwalitee-metrics.bat	2.96 KB	-rwxrwxrwx	2021-01-24 18:08
libgcc_s_seh-1.dll	74.5 KB	-rw-rw-rw-	2019-03-14 23:36
libnetcfg.bat	16.88 KB	-rwxrwxrwx	2024-07-26 17:42
libstdc++-6.dll	1.36 MB	-rw-rw-rw-	2019-03-14 23:36
libwinpthread-1.dll	51 KB	-rw-rw-rw-	2019-03-14 23:36
llw32helper.bat	4.8 KB	-rwxrwxrwx	2021-01-24 18:08
llw32helper.pl	4.13 KB	-rw-rw-rw-	2021-01-24 17:51
lwp-download	10.04 KB	-rw-rw-rw-	2021-01-24 18:01
lwp-download.bat	10.88 KB	-rwxrwxrwx	2021-01-24 18:08
lwp-dump	2.64 KB	-rw-rw-rw-	2021-01-24 18:01
lwp-dump.bat	3.26 KB	-rwxrwxrwx	2021-01-24 18:08
lwp-mirror	2.35 KB	-rw-rw-rw-	2021-01-24 18:01
lwp-mirror.bat	2.96 KB	-rwxrwxrwx	2021-01-24 18:08
lwp-request	15.81 KB	-rw-rw-rw-	2021-01-24 18:01
lwp-request.bat	16.88 KB	-rwxrwxrwx	2021-01-24 18:08
mech-dump	4.74 KB	-rw-rw-rw-	2021-01-24 18:01
mech-dump.bat	5.44 KB	-rwxrwxrwx	2021-01-24 18:08
minicpan	5.36 KB	-rw-rw-rw-	2021-01-24 18:08
minicpan.bat	6.05 KB	-rwxrwxrwx	2021-01-24 18:08
module-version	2.06 KB	-rw-rw-rw-	2021-01-24 17:51
module-version.bat	2.65 KB	-rwxrwxrwx	2021-01-24 18:08
mojo	408 B	-rw-rw-rw-	2021-01-24 16:59
mojo.bat	953 B	-rwxrwxrwx	2021-01-24 18:08
moose-outdated	427 B	-rw-rw-rw-	2021-01-24 18:01
moose-outdated.bat	977 B	-rwxrwxrwx	2021-01-24 18:08
morbo	2.15 KB	-rw-rw-rw-	2021-01-24 16:59
morbo.bat	2.72 KB	-rwxrwxrwx	2021-01-24 18:08
mymeta-cpanfile	2.7 KB	-rw-rw-rw-	2021-01-24 16:20
mymeta-cpanfile.bat	3.32 KB	-rwxrwxrwx	2021-01-24 18:08
nssm_32.exe	288 KB	-rwxrwxrwx	2021-01-24 16:50
nssm_64.exe	323.5 KB	-rwxrwxrwx	2021-01-24 16:50
package-stash-conflicts	463 B	-rw-rw-rw-	2021-01-24 18:01
package-stash-conflicts.bat	1013 B	-rwxrwxrwx	2021-01-24 18:08
parinstallppd	3.35 KB	-rw-rw-rw-	2021-01-24 18:01
parinstallppd.bat	3.99 KB	-rwxrwxrwx	2021-01-24 18:08
perl.exe	39 KB	-rwxrwxrwx	2021-01-24 16:06
perl5.32.1.exe	39 KB	-rwxrwxrwx	2021-01-24 16:06
perl532.dll	3.26 MB	-rw-rw-rw-	2021-01-24 16:07
perlbug.bat	46.8 KB	-rwxrwxrwx	2024-07-26 17:42
perldoc.bat	1016 B	-rwxrwxrwx	2023-11-19 11:41
perlglob.bat	1.95 KB	-rwxrwxrwx	2021-01-24 18:08
perlglob.exe	17 KB	-rwxrwxrwx	2021-01-24 16:01
perlivp.bat	11.72 KB	-rwxrwxrwx	2024-07-26 17:42
perlthanks.bat	46.8 KB	-rwxrwxrwx	2024-07-26 17:42
perltidy	175.27 KB	-rw-rw-rw-	2021-01-24 18:01
perltidy.bat	180.32 KB	-rwxrwxrwx	2021-01-24 18:08
pgplet	10.37 KB	-rw-rw-rw-	2021-01-24 18:01
pgplet.bat	11.22 KB	-rwxrwxrwx	2021-01-24 18:08
piconv	8.07 KB	-rw-rw-rw-	2021-01-24 18:01
piconv.bat	9.13 KB	-rwxrwxrwx	2021-01-24 18:08
pkg-config	46.94 KB	-rw-rw-rw-	2021-01-24 18:01
pkg-config.bat	49.2 KB	-rwxrwxrwx	2021-01-24 18:08
pl2bat.bat	11.49 KB	-rwxrwxrwx	2021-01-24 18:08
pl2bat.pl	10.4 KB	-rw-rw-rw-	2021-01-24 18:01
pl2pm.bat	5.56 KB	-rwxrwxrwx	2024-07-26 17:42
pler	540 B	-rw-rw-rw-	2021-01-24 18:01
pler.bat	1.07 KB	-rwxrwxrwx	2021-01-24 18:08
pm-uninstall	820 B	-rw-rw-rw-	2021-01-24 18:01
pm-uninstall.bat	1.28 KB	-rwxrwxrwx	2023-11-19 11:41
pod2html.bat	5.02 KB	-rwxrwxrwx	2024-07-26 17:42
pod2latex	10.39 KB	-rw-rw-rw-	2024-07-26 17:42
pod2latex.bat	10.92 KB	-rwxrwxrwx	2024-07-26 17:42
pod2man.bat	15.42 KB	-rwxrwxrwx	2023-11-19 11:41
pod2text.bat	11.29 KB	-rwxrwxrwx	2023-11-19 11:41
pod2usage	4.16 KB	-rw-rw-rw-	2021-01-24 16:27
pod2usage.bat	4.67 KB	-rwxrwxrwx	2021-01-24 18:08
pod_cover	1.37 KB	-rw-rw-rw-	2021-01-24 18:01
pod_cover.bat	1.94 KB	-rwxrwxrwx	2021-01-24 18:08
podchecker	3.7 KB	-rw-rw-rw-	2021-01-24 16:27
podchecker.bat	4.21 KB	-rwxrwxrwx	2021-01-24 18:08
podselect	2.56 KB	-rw-rw-rw-	2021-01-24 16:25
podselect.bat	3.07 KB	-rwxrwxrwx	2021-01-24 18:08
ppd2par	4.64 KB	-rw-rw-rw-	2021-01-24 18:01
ppd2par.bat	5.32 KB	-rwxrwxrwx	2021-01-24 18:08
ppm.bat	35.53 KB	-rwxrwxrwx	2021-01-24 18:08
ppm.pl	33.99 KB	-rw-rw-rw-	2021-01-24 18:01
primes.bat	21.45 KB	-rwxrwxrwx	2021-01-24 18:08
primes.pl	20.34 KB	-rw-rw-rw-	2021-01-24 18:01
prove.bat	14.07 KB	-rwxrwxrwx	2023-11-19 11:41
ptar	3.38 KB	-rw-rw-rw-	2021-01-24 18:01
ptar.bat	4.28 KB	-rwxrwxrwx	2021-01-24 18:08
ptardiff	2.48 KB	-rw-rw-rw-	2021-01-24 18:01
ptardiff.bat	3.35 KB	-rwxrwxrwx	2021-01-24 18:08
ptargrep	4.19 KB	-rw-rw-rw-	2021-01-24 18:01
ptargrep.bat	5.14 KB	-rwxrwxrwx	2021-01-24 18:08
runperl.bat	2.72 KB	-rwxrwxrwx	2021-01-24 18:08
scan-perl-prereqs-nqlite	5.28 KB	-rw-rw-rw-	2021-01-24 16:24
scan-perl-prereqs-nqlite.bat	6 KB	-rwxrwxrwx	2021-01-24 18:08
search.bat	55.83 KB	-rwxrwxrwx	2021-01-24 18:08
shasum.bat	10.48 KB	-rwxrwxrwx	2023-11-19 11:41
splain.bat	20.43 KB	-rwxrwxrwx	2024-07-26 17:42
streamzip	5.45 KB	-rw-rw-rw-	2021-01-24 18:01
streamzip.bat	6.17 KB	-rwxrwxrwx	2021-01-24 18:08
stubmaker.bat	4.01 KB	-rwxrwxrwx	2021-01-24 18:08
stubmaker.pl	3.35 KB	-rw-rw-rw-	2021-01-24 18:01
test-yaml	1017 B	-rw-rw-rw-	2021-01-24 18:01
test-yaml.bat	1.56 KB	-rwxrwxrwx	2021-01-24 18:08
tpage	8.85 KB	-rw-rw-rw-	2021-01-24 18:01
tpage.bat	9.64 KB	-rwxrwxrwx	2021-01-24 18:08
ttree	38.21 KB	-rw-rw-rw-	2021-01-24 18:01
ttree.bat	39.9 KB	-rwxrwxrwx	2021-01-24 18:08
use-devel-checklib	2.7 KB	-rw-rw-rw-	2021-01-24 16:53
use-devel-checklib.bat	3.31 KB	-rwxrwxrwx	2021-01-24 18:08
whirlpoolsum	4.93 KB	-rw-rw-rw-	2021-01-24 18:01
whirlpoolsum.bat	5.67 KB	-rwxrwxrwx	2021-01-24 18:08
wperl.exe	39 KB	-rwxrwxrwx	2021-01-24 16:06
xml_grep	13.32 KB	-rw-rw-rw-	2021-01-24 18:01
xml_grep.bat	14.3 KB	-rwxrwxrwx	2021-01-24 18:08
xml_merge	3.89 KB	-rw-rw-rw-	2021-01-24 18:01
xml_merge.bat	4.55 KB	-rwxrwxrwx	2021-01-24 18:08
xml_pp	7.82 KB	-rw-rw-rw-	2021-01-24 18:01
xml_pp.bat	8.61 KB	-rwxrwxrwx	2021-01-24 18:08
xml_spellcheck	6.34 KB	-rw-rw-rw-	2021-01-24 18:01
xml_spellcheck.bat	7.1 KB	-rwxrwxrwx	2021-01-24 18:08
xml_split	21.13 KB	-rw-rw-rw-	2021-01-24 18:01
xml_split.bat	22.27 KB	-rwxrwxrwx	2021-01-24 18:08
xsubpp.bat	5.78 KB	-rwxrwxrwx	2023-11-19 11:41
zipdetails	56.01 KB	-rw-rw-rw-	2021-01-24 18:01
zipdetails.bat	58.95 KB	-rwxrwxrwx	2021-01-24 18:08

Rename

#!perl

=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 cbor - CBOR (RFC 7049, L<CBOR::XS>), a kind of binary JSON

=item storable - a L<Storable> frozen value

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

=item bencode - use L<Convert::Bencode>, if available (used by torrent files, among others)

=item clzf - L<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 - L<YAML> format (requires that module to be installed)

=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

=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 cbor - CBOR (RFC 7049, L<CBOR::XS>), a kind of binary JSON

=item cbor-packed - CBOR using extensions to make it smaller

=item storable - a L<Storable> frozen value in network format

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

=item bencode - use L<Convert::Bencode>, if available (used by torrent files, among others)

=item clzf - L<Compress::LZF> format

=item yaml - L<YAML::XS> format

=item dump - L<Data::Dump>

=item dumper - L<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

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 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 :)

json_xs -f none -e '$_ = [1, 2, 3]'

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

<torrentfile 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/JSON-XS.json | json_xs

Fetch the cpan-testers result summary C<JSON::XS> and pretty-print it.

=head1 AUTHOR

=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";
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";

my %F = (
   "none"          => sub { undef },
   "string"        => sub { $_ },
   "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, $_)
   },
   "cbor"          => sub { require CBOR::XS; CBOR::XS->new->allow_cycles->decode ($_) },
   "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::XS; YAML::XS::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 { JSON::XS->new->utf8->pretty->canonical->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 ($_) },
   "cbor"          => sub { require CBOR::XS; CBOR::XS::encode_cbor ($_) },
   "cbor-packed"   => sub { require CBOR::XS; CBOR::XS->new->pack_strings->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::XS; YAML::XS::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_to: 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, $_;