Mercurial > boosterpack
view scripts/pjx_JSON_out.pl @ 7:4c495190076f boosterpack
[svn r9] fixed blanes dodrio bug
author | robert |
---|---|
date | Thu, 10 Sep 2009 08:01:18 -0400 |
parents | 477258d09353 |
children |
line wrap: on
line source
1 #!C:/strawberry/perl/bin/perl.exe2 use strict;3 use CGI;4 use JSON;5 use Data::Dumper;7 my $q = new CGI;10 print $q->header();13 my $val = $q->param('args');14 my @vals = split(//, $val);17 my $hash;18 map { $hash->{$_} = chr(ord($_)+1) } @vals;20 my $json = objToJson($hash);22 print "var jsonObj = $json";