kirsle/.dotfiles
1
0
Fork 0
Code Releases Activity

Make json-pretty support URLs too

Browse Source
This commit is contained in:
Noah 2014-06-02 15:37:33 -07:00
parent 4f028a5680
commit e9e5328a0d
1 changed files with 12 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

18
home/bin/json-pretty
View File

@ -2,22 +2,28 @@
# json-pretty: Take a JSON file and pretty-print it.
#
# Usage: json-pretty <file.json>
# 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>\n";
my $file = shift(@ARGV) or die "Usage: $0 <file.json or url>\n";
my $json = JSON->new->utf8->pretty();
local $/ = undef;
open(my $fh, "<", $file);
my $text = <$fh>;
close($fh);
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);