Mercurial > rlmcintyre
annotate BoosterPack/scripts/pjx_JSON_out.pl @ 0:0d795f02a8bb tip
initial committ. what was I thinking?
| author | Robert McIntyre <rlm@mit.edu> |
|---|---|
| date | Mon, 27 Sep 2010 16:57:26 -0400 |
| parents | |
| children |
| rev | line source |
|---|---|
| rlm@0 | 1 #!C:/strawberry/perl/bin/perl.exe |
| rlm@0 | 2 use strict; |
| rlm@0 | 3 use CGI; |
| rlm@0 | 4 use JSON; |
| rlm@0 | 5 use Data::Dumper; |
| rlm@0 | 6 |
| rlm@0 | 7 my $q = new CGI; |
| rlm@0 | 8 |
| rlm@0 | 9 |
| rlm@0 | 10 print $q->header(); |
| rlm@0 | 11 |
| rlm@0 | 12 |
| rlm@0 | 13 my $val = $q->param('args'); |
| rlm@0 | 14 my @vals = split(//, $val); |
| rlm@0 | 15 |
| rlm@0 | 16 |
| rlm@0 | 17 my $hash; |
| rlm@0 | 18 map { $hash->{$_} = chr(ord($_)+1) } @vals; |
| rlm@0 | 19 |
| rlm@0 | 20 my $json = objToJson($hash); |
| rlm@0 | 21 |
| rlm@0 | 22 print "var jsonObj = $json"; |