Perl与WAP的综合应用

Perl与WAP的综合应用
使用Perl也可生成WAP页面和开发出复杂的WAP应用。我们还是以WML为例来说明Perl在WAP开发中的具体应用。当然，用户首先应当配置好自己的系统，使之能够运行Perl，而且还要具有CGI的基本知识，了解Perl的语法。

11.4.1　基本规则
使用Perl编写WML程序的基本规则如下：

(1) 程序行语句均以分号( ; )结尾，这是与PHP编写WML程序一致的地方。

(2) 使用print语句来声明WML的文件头信息，并在WML行后面加上换行符“ ”。基本格式为：

print "……(WML标签或语句行) ";

声明WML文件头信息的Perl代码为：

print "Content-type: text/vnd.wap.wml ";

print "<?xml version="1.0"?> ";

print "<!DOCTYPE wml PUBLIC "-//WAPFORUM//DTD WML 1.1//EN""http://www.wapforum.org/ DTD/wml_1.1.xml"> ";

文件头信息的声明也可以使用Perl的标量变量来实现，具体方法下面马上介绍。

(4) 其他WML标签和语句行的实现比较灵活，既可以使用上述格式的print语句来实现，也可以通过Perl的标量变量形式来实现。我们这里主要介绍后一种形式，即将一个WML卡片的内容赋给一个Perl的标量变量，然后通过变量的操作来实现WML页面，其基本格式为：

$变量名 = 标识名 (

……(WML标签或语句)

);

或：

$变量名 =

"

……(WML标签或语句)

";

例如，显示“Hello!”信息的WML页面利用标量变量的第一种形式可以表示为：

$testwml = mywml (

<wml>

　　　　 <card id="main">

　　　　　　　　　 <p>

　　　　　　　　　　　　　　Hello!

　　　　　　　　　 </p>

　　　　 </card>

</wml>

);

其中标量变量名testwml和标识名mywml由用户定义，不过要符合Perl的语法要求。

上述页面利用标量变量的第二种形式可以表示为：

$testwml =

"<wml>

　　　　 <card id="main">

　　　　　　　　　 <p>

　　　　　　　　　　　　　　Hello!

　　　　　　　　　 </p>

　　　　 </card>

</wml>";

(5) 使用Perl语言编写WML程序时，Perl的注释符“#”仍然可以使用，且需要告诉系统Perl解释器所在的目录，如“/usr/bin/perl”，这一行通常放在程序的第一行：

#!/usr/bin/perl

其中的感叹号(!)用于表明该程序的类型，不可省略。

(6) 文件最后保存时采用的扩展名为“.pl”，如果实现的是CGI编程，则取扩展名为“.cgi”，不能取“.wml”等扩展名。

在这些基本规则下，我们就可使用Perl语言的强大CGI处理功能，来编写复杂的WML应用了