And Now For Some Really Basic Perl - JSON Manipulation
And Now For Some Really Basic Perl - JSON Manipulation In PerlWorld, there are basically two ways of doing virtually anything. a) Do it yourself b) Go look at CPAN and realize that Someone Has Done It Better Being a card-carrying member of approach (b) above, here's a remarkably simple way of mainpulating JSON in PerlWorld First, for some code based on Marc Lehmann's truly excellent JSON module # Include the JSON module use JSON::XS; # Create a thing (called $json) that will be used to encode JSON strings $json = JSON::XS->new(); # Make sure that the resultant JSON will print out all nice and pretty $json->pretty(1); # Create a basic JSON hash $jsonStructure->{id} = "1234"; $jsonStructure->{method} = "ReallyCoolMethod"; $jsonStructure->{version} = "1.0.1"; # $prettyJSON will contain the text string which is the Oh-So-Pretty version of $jsonStructure $prettyJson = $json->encode($jsonStructure); If you printed out the contents of $