platform:serial8250 "9l=JJj"Tځ ƅq)F tge9#!/usr/bin/perl =head1 NAME json_xs - JSON::XS commandline utility =head1 SYNOPSIS json_xs [-v] [-f inputformat] [-t outputformat] =head1 DESCRIPTION F converts between some input and output formats (one of them is JSON). The default input format is C and the default output format is C. =head1 OPTIONS =over 4 =item -v Be slightly more verbose. =item -f fromformat Read a file in the given format from STDIN. C 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), a kind of binary JSON =item storable - a L frozen value =item storable-file - a L file (Storable has two incompatible formats) =item bencode - use L, if available (used by torrent files, among others) =item clzf - L 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 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 scalar - mainly useful with C<-e> =back =item -t toformat Write the file in the given format to STDOUT. C 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), a kind of binary JSON =item cbor-packed - CBOR using extensions to make it smaller =item storable - a L frozen value in network format =item storable-file - a L file in network format (Storable has two incompatible formats) =item bencode - use L, if available (used by torrent files, among others) =item clzf - L format =item yaml - L format =item dump - L =item dumper - L =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 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. pretty.json Prettify the JSON file F to F. json_xs -f storable-file and print a human-readable JSON version of it to STDOUT. json_xs -f storable-file -t yaml {"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 and pretty-print it. =head1 AUTHOR Copyright (C) 2008 Marc Lehmann =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 %