.dotfiles/home/bin/json-pretty

#!/usr/bin/perl

# json-pretty: Take a JSON file and pretty-print it.
#
# Usage: json-pretty <file.json or url>
#
# --Kirsle

use strict;
use warnings;
use LWP::Simple;
use JSON;

my $file = shift(@ARGV) or die "Usage: $0 <file.json or url>\n";

my $json = JSON->new->utf8->pretty();

my $text = "";
if ($file =~ /^https?:/i) {
	$text = get $file;
} else {
	local $/ = undef;
	open(my $fh, "<", $file);
	$text = <$fh>;
	close($fh);
}

my $data = $json->decode($text);
print $json->encode($data);