Sponsoring The Perl Toolchain Summit 2025: Help make this important event another success Learn more

MNUNBERG / JSON-SL-1.0.7 / eg / json_sl 

            

              
1
2
3
4
5
6
7
8
9
10
11
12

              
#!/usr/bin/perl
use strict;
use warnings;
use JSON::SL qw(decode_json);
use Data::Dumper;
use File::Slurp;
print STDERR "Using version ${JSON::SL::VERSION}\n";
my $buf = read_file($ARGV[0]);
print Dumper decode_json($buf);