rlm@0: #!C:/strawberry/perl/bin/perl.exe rlm@0: use strict; rlm@0: use CGI::Ajax; rlm@0: use CGI; rlm@0: rlm@0: my $q = new CGI; rlm@0: rlm@0: my $Show_Form = sub { rlm@0: my $html = ""; rlm@0: $html .= < rlm@0: CGI::Ajax JSON Example rlm@0: rlm@0: rlm@0: rlm@0:

Get The Letter Following the One you Enter

rlm@0:
rlm@0: Enter Number: rlm@0: rlm@0:

The JavaScript Object:
rlm@0:
rlm@0: rlm@0:
rlm@0:
After Parsing (use eval)
rlm@0:
rlm@0: rlm@0:
rlm@0: rlm@0:
rlm@0: rlm@0: rlm@0: EOT rlm@0: rlm@0: return $html; rlm@0: }; rlm@0: rlm@0: my $pjx = CGI::Ajax->new('json' => 'pjx_JSON_out.pl'); rlm@0: $pjx->JSDEBUG(1); rlm@0: $pjx->DEBUG(1); rlm@0: print $pjx->build_html($q,$Show_Form); # this outputs the html for the page