#! /usr/bin/perl -w use strict; use CGI::Ajax; use CGI; my $q = new CGI; my $Show_Form = sub { my $html = ""; $html .= <<EOT; <HTML> <HEAD><title>CGI::Ajax JSON Example</title> <script> handle_return = function(vv){ document.getElementById('object_display').innerHTML = vv; eval(vv); // this gives you 'var jsonObj' here in javascript; // alert(jsonObj); var div = document.getElementById('parsed'); div.innerHTML = "</b>key : value<b><br/>"; for(var key in jsonObj){ div.innerHTML += key + " => " + jsonObj[key] + "<br/>"; } } </script> </HEAD> <BODY> <H2> Get The Letter Following the One you Enter </H2> <form> Enter Number: <input type="text" id="val1" size="6" value='abc' onkeyup="json(['val1'], [handle_return]);"> <br/><br/>The JavaScript Object:<br/> <div id="object_display" style="width:500px;height:200px;"> </div> <br/> After Parsing (use eval) <br/> <div id="parsed" style="width:500px;height:200px;"> </div> </form> </BODY> </HTML> EOT return $html; }; my $pjx = CGI::Ajax->new('json' => 'pjx_JSON_out.pl'); $pjx->JSDEBUG(1); $pjx->DEBUG(1); print $pjx->build_html($q,$Show_Form); # this outputs the html for the page