Mercurial > boosterpack

     1 #!C:/strawberry/perl/bin/perl.exe

     2 use strict;

     3 use CGI; 

     4 use JSON;

     5 use Data::Dumper;

     6 

     7 my $q = new CGI;

     8 

     9 

    10 print $q->header(); 

    11 

    12 

    13 my $val = $q->param('args');

    14 my @vals = split(//, $val);

    15 

    16 

    17 my $hash;

    18 map { $hash->{$_} = chr(ord($_)+1) } @vals;

    19 

    20 my $json = objToJson($hash);

    21 

    22 print "var jsonObj = $json";
author	robert
date	Tue, 08 Sep 2009 02:45:26 -0400
parents	477258d09353
children