ajax全名为Asynchronous JavaScript and XML ,异步javascript和xml.这是web2.0的主流技术.在perl中就不用自己实现了.perl中就有很好用的模块.这样我们就不用花大量的时间来研究浏览器和服务器上的perl怎么交互了.
我们只要安装CGI::Ajax这个模块就能实现一个java的事件和一个perl的程序关联起来.perl的模块程序自动生成javascript调用的代码,这样我们可以多关注程序本身的功能.
#cpan CGI::Ajax
建议参考文章:http://www.perl.com/pub/a/2006/03/02/ajax_and_perl.html
下面是cpan中的例子,我用中文在注解一下.
| 以下是代码片段： use strict; use CGI; #所有能生成html的模块都行.为了方便我们用最常用的CGI模块 use CGI::Ajax; my $cgi = new CGI; my $pjx = new CGI::Ajax( ’exported_func’ => \&perl_func ); #上面最重要了.上面’exported_func’是一个ajax的功能函数.就是一个事件,关联到perl_func这个功能上面 print $pjx->build_html( $cgi, \&Show_HTML); #这是给下面的show_html中的html输出成模块的网页. # 这个函数收到的就是ajax提交过来的内容,然后处理,处理的结果是在javascript中 ’exported_func’定义的,不急下面可以见到 sub perl_func { my $input = shift; # do something with $input my $output = $input . " was the input!"; return( $output ); } sub Show_HTML { my $html = <<EOHTML; <HTML> <BODY> Enter something: <input type="text" name="val1" id="val1" onkeyup="exported_func( [’val1’], [’resultdiv’] );"> #注意,这个地方.exported_func的函数是上面关联的内容.其中之一val1是DOM中的ID为val1的内容.resultdiv是id为resultdiv的内定. #val1是源,是输入.resultdiv为输出.输出后的内容会放到id为resultdiv的div中. <br> <div id="resultdiv"></div> </BODY> </HTML> EOHTML; return $html; } |
perl的CGI::Ajax注意
最重要的内定.多个输入,输入的内容为dom中的中的id的值.目的为输出时的dom的值.
onClick=”JSFUNC(['source1','source2'], ['dest1','dest2']);”
如果你想自己控制输出,可以在输入的时候['resultdiv'] ,写成一个javascript的函数,用那个函数对输出进行了处理.如下
onClick=”exported_func(['input1'],[js_process_func]);”
ajax中文的处理
my @headers=( “text/html; charset=UTF-8″, );
print $ajx->build_html( $cgi, \&Show_HTML ,@headers);#记的@headers前不要加\,那样就变成了引用,中文还是会不正常的.