【IT168 服务器学院】Ajax, 最近非常红火的技术。有很多现成的开发工具包。开始的时候我试用了CPAINT，支持php/asp。还不错。后来开始用perl的Ajax实现： CGI::Ajax。对比之下，发现非常好用。主要的特点是程序自动生成javascript调用的代码。这样的话，我们可以专注于程序逻辑的开发，而不用去理睬繁复的Ajax javascript调用。这是CGI::Ajax高明的地方。
CGI::Ajax安装
perl -MCPAN -e "install CGI::Ajax"
学习这个简单的例子
#!/usr/bin/perl -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;
<HTML>
<HEAD>
<title>test</title>
</HEAD>
<BODY>
<input type=''text'' name=''val1'' id=''val1''>
<input type=''text'' name=''val2'' id=''val2''>
<input type=''button'' name=''cal'' id=''cal'' value=''cal it''
onclick="calculate([''val1'',''val2''],[''result'']);return true;"><br>
<div id=''result''></div>
</BODY>
</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);
一个小问题
在页面的javascript中如果需要使用回车字符或者其他类似字符，那么必须要使用2个斜杠。
中文的问题
我以utf8为例。
1.页面字符集设定
使用下面的调用方式即可。
my @headers=("charset=utf8",);
print $ajax->build_html($cgi,\&Show_HTML,\@headers);
2.返回结果集中文显示乱码
这是CGI::Ajax的小Bug。
解决办法如下：
找到你安装好的Ajax.pm，找到下面这句：
my $rv = $self->cgi()->header(）；
把它改成类似于这样的句子即可：
my $rv = $self->cgi()->header("charset=utf8");
当然，更好的办法是使用我们在
print $ajax->build_html($cgi,\&Show_HTML,\@headers);
中传递的这个@headers，改起来也很容易的。
