doc/drupaljson.pl

   1 #!/usr/bin/perl
   2 use strict;
   3 use warnings;
   4 use JSON;
   5
   6 local $/; # enable localized slurp mode
   7 my %rec_hash = ('body' => {'und' => [{'value' => <STDIN>}]});
   8 my $json = encode_json \%rec_hash;
   9 print $json;