/share/test_json.pl
Perl | 11 lines | 8 code | 3 blank | 0 comment | 0 complexity | abcf586f6a67daa3f2606f80669043a3 MD5 | raw file
- use strict;
- use JSON;
- use Data::Dumper;
- use Path::Tiny;
- my $path = path("bitbucket-spore.json");
- my $body = $path->slurp_raw;
- my $data = decode_json($body);
- print Dumper($data);