Perl Ajax

对Ajax了解过一些，但一直没有实践过，最近学习Perl，昨天用ppm安装Module的时候无意中发现有个叫CGI::Ajax的模块，今天装上并弄了个示例程序测试了一下，感觉不错比较简单。

#!c:/perl/bin/perl.exe -w
use strict;
use CGI::Ajax;
use CGI;
#下面是我们这个程序的核心逻辑部分.
#客户端通过会Ajax调用这个函数，得到想要的结果。
sub test_calculate{
my ($cal1,$cal2)=@_;
return ($cal1+$cal2);
}
#下面是客户端显示的html
#注意onclick部分的写法。你可以将其理解为一段伪码（其实不是伪码，其实际代码部分都是CGI::Ajax自动生成的），表示：
#调用函数calculate，参数是val1控件和val2控件的值，结果显示在result控件上。
sub Show_HTML{
my $html = <

EOHTML
return $html;
}
my $cgi=new CGI();
# 这里的代码将刚才提到的伪码calculate和我们的perl实现函数关联起来。
#这样，当客户端点击时调用calculate伪码，其效应就是：
#程序自动生成的javascript代码就会启动Ajax机制，远程调用我们这个cgi中的test_calculate函数，
#并得到其结果，输出到相应的页面控件来显示。
my $ajax=new CGI::Ajax('calculate'=>\&test_calculate);
#build_html，这一步中，CGI::Ajax会自动生成html网页和Ajax调用的所有javascript代码。
#而当客户端通过Ajax调用本程序时，这个build_html函数还会自动调用相应的函数（test_calculate）并且返回结果。
print $ajax->build_html($cgi,\&Show_HTML);

exit;

Perl简洁实用，非常符合程序员的思想。