javascript和JQuery焦点图和代码特效大全
当前最流行的开源CMS网站系统大全
当前位置:首页 > WEB前端 > AJAX

实例讲解Perl的Ajax实现与中文问题

来源:IT技术网编辑:雨天发布于:2017-02-12人围观

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)[email protected]_; 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,改起来也很容易的。

与相关的文章
有时间的话来看看IT界的突发事件