1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
|
#! /usr/bin/perl -w
use strict;
package main ;
my $tester = new Tester ;
$tester->run ;
package Tester ;
use base qw(CGI::Application);
use CGI::Ajax;
sub setup {
my $self = shift;
$self->run_modes([qw(
start
)]);
}
# define an anonymous perl subroutine that you want available to
# javascript on the generated web page.
# define a function to generate the web page - this can be done
# million different ways, and can also be defined as an anonymous sub.
# The only requirement is that the sub send back the html of the page.
sub Show_HTML {
my $html = "";
$html .= <<EOT;
<HTML>
<HEAD><title>CGI::Ajax Example</title>
</HEAD>
<BODY>
<form>
Enter a number:
<input type="text" name="val1" id="val1" size="6"
onkeyup="evenodd( ['val1'], ['resultdiv'] ); return true;"><br>
<hr>
<div id="resultdiv" style="border: 1px solid black;
width: 440px; height: 80px; overflow: auto">
</div>
</form>
</BODY>
</HTML>
EOT
return $html;
}
sub start {
my $self = shift;
my $evenodd_func = sub {
my $input = shift;
my $magic = " <font size=-1>look ma, no submit!</font><br>";
# see if input is defined
if ( not defined $input ) {
return("input not defined or NaN" . $magic);
}
# see if value is a number (*thanks Randall!*)
if ( $input !~ /\A\d+\z/ ) {
return("input is NaN" . $magic);
}
# got a number, so mod by 2
$input % 2 == 0 ? return("$input is EVEN" . $magic) : return("$input is ODD" . $magic);
}; # don't forget the trailing ';', since this is an anon subroutine
my $pjx = new CGI::Ajax( 'evenodd' => $evenodd_func );
$pjx->JSDEBUG(2);
my $text = $pjx->build_html($self,\&Show_HTML); # this outputs the html for the page
return $text ;
}
|
