Help for this page

Select Code to Download


  1. or download this
    $| = 1;
$/ = undef;
...
print "Decoding JSON file";
my $js = decode_json $data;  # line 24
print "...done\n";
  2. or download this
    print "Reading JSON file";
open my $fh, '<', '../data/publicextract.charity.json' or die "Unable 
+to read Charity JSON File";
...
print "...done\n";

$data =~ s/^\357\273\277//;  # Strip off BOM