Perl的Ajax实现与中文问题

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 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，改起来也很容易的。

本文来源于 WEB开发网 原文链接：