使用 Perl 打造无线网站

答案：
使用 Perl 打造无线网站
原文网址 : http://易做图.cnet.com/builder/programming/story/0,2000027293,20021851,00.htm 
前言 

在过去这一年之中，网站建构者们目睹无线上网技术热潮兴起又落下。曾经有那么一段时间，任何与无线上网扯上关系的技术全都成了当红炸子鸡，不过一如 B2C 与 B2B 那样，WML 与 WAP 的热潮近来也已经退烧。然而纵使无线上网技术已不再是科技新闻头条，你仍旧可以利用它们来建立功能强大的应用程序。WAP 与 WML 对于提供信息给客户与在办公室外工作的员工来说，都是相当适合的技术。 

在这篇文章里面我们将会探讨如何使用 Perl 程序语言来释放 WML 与 WAP 的威力。由于这些技术都是植基于 XML 与 HTTP，因此你会发现自己很快便能够进入状况，并且开始建立供无线装置上网使用的动态内容应用程序。我们将会提供一些范例来说明如何使用一般的 CGI 写作方式以及透过Mason 组件语言来撰写网站应用程序。现在，让我们从如何建立无线网络应用程序开始看起吧！ 

James Scheinblum 经常为 CNET Web Building 撰写文章的自由作家与网站建构者。住在纽约 Ithaca 市。 

WAP 基本概念说明

到目前为止，最广为业界所接受的无线上网科技便是「无线应用程序通讯协议（Wireless Application Protocal, WAP）」。WAP 事实上是一系列的技术，用来提供无线服务给行动电话，终端机以及其它设备。WAP 包含了提供内容给无线设备所需要的所有技术，然而在这篇文章里面，我们会将焦点放在透过 HTTP 1.1 通讯协议来与客户端进行互动。在无线网络上传送内容所依赖的通讯协议正是 HTTP 1.1，因此任何支持 HTTP 1.1 的 Web 服务器都可以用来提供无线网络内容服务。 

然而，能够直接使用标准的 Web 服务器并不表示所有你原本已有的网站内容都能够直接用来传送给无线上网设备浏览。WAP 定义了一套由 XML 标准延伸而来的标记语言，称为「无线标记语言（Wireless Markup Language, WML）」，专门用来将准备传送给无线上网设备的内容进行编码。正如同 HTML 是用来定义资料在一般网络浏览器上面的显示与动作方式的标记语言那样，WML 便是用来定义资料如何在无线上网设备上显示与动作的标记语言。 

迈出你的第一步
你要做的第一件事情便是研读 WML 规范。由于 WML 是由 XML 发展而来（WML 是 XML 的一种应用系统），因此请为 XML 所要求的严格文件结构规则预作准备。WML 也和 HTML 有很多相异之处，请参考 网站建构专区 的相关文章来取得更多信息。 
一旦你准备好开始使用 XML 与 WML，你便会需要一个支持 WAP 的设备来测试你的程序。一支支持 WAP 的行动电话用来做最后的测试是相当适合，不过我们还是建议你使用一个软件仿真器来做为开发阶段的测试用工具。你可以参考 AllNetDevices 网站上面提供的仿真器清单，或者前往 Openwave 公司的开发者专属网站去下载最新、最具威力的 WAP 仿真软件。 

既然你已经把需要的工具与技术都准备好了，接下来让我们看看一些实际的程序代码吧。 

提供 WAP 服务的动态 CGI 程序
由于 WAP 同样使用 HTTP 通讯协议，因此你可以依照为一般网络浏览器开发动态内容程序相同的设计策略来为无线上网工具开发应用程序。事实上，你甚至可以说两者的开发流程除了一些特定的细节部分以外，大致上都是相同的。首先，一般的网络浏览器接受的内容类型（HTTP 通讯中的 Content-Type 表头）信息为 text/html，而无线上网的客户端程序则要求你的程序送出 text/vnd.wap.wml 做为内容类型的值。其次，由于传送给无线上网客户端程序的文件事实上是一个 XML 档案，因此你必须将 XML 文件类型宣告字符串一并送出。只要你注意以上两点，那么你便可以开始传送你的内容了。下面是一个很简单的 传送 WML 文件的 CGI 程序。 

#!/usr/bin/perl

print "Content-type: text/vnd.wap.wml\n\n";
print "<?xml version=\"1.0\" encoding=\"iso-8859-1\"?>\n";
print "<!DOCTYPE wml PUBLIC \"-//WAPFORUM//DTD WML 1.1//EN\" \"http://www.wapforum.org/DTD/wml_1.1.xml\">\n";
print "<wml>\n";
print "　 <card id='card1'>\n";
print "　　　<p>欢迎来到我的无线上网设备专用 cgi 程序！</p>\n";
print "　 </card>\n";
print "</wml>\n"; 

上面这个最简单的范例示范了如何在 WML 文件里面传送正确的 HTTP 与 XML 表头信息给浏览器。由于我们传送的实际上是一个 XML 文件，因此在输出资料的时候请记得要遵循正确的语法与格式。一般的网络浏览器对于内容类型或者表头宣告等信息的语法和格式都非常宽容，然而 WAP 客户端程序却非如此。 

上面这个程序所输出的内容虽然是实时产生的，但是终究还是不够动态 -- 它在任何状况下送出的内容都是完全相同的。取而代之，我们可以透过 CGI 函式库来读取客户端送入的资料，并且根据这些传入的资料来实时建立新的内容传送回客户端。WML 本身被设计成尽可能越能够自给自足（self-sufficient）越好，这样的设计让页面中的每一个 deck 元素可以不需要送出新的 HTTP 请求给服务器便可以从一个 card 元素移动到另一个 card 元素。不过这也意味着你在接收从 WML 文件传入的资料的时候要格外小心，必须确认最后一个 card 元素确实有传送所有的变量到服务器端才行。 

这个相较之下很简单的范例程序会从客户端读取来自不同 card 元素所送出的参数，并且将这些参数传送给服务器，然后据此建立一个新的 deck 元素。这个程序会读取来自每个 card 元素所送出的参数，并且将他们以 HTTP get 请求的型式传送给服务器。请注意在最后一个名为 finish 的 card 元素里面，我们在每一个 WML 变量（例如 $first_name）的前面全都加上一个斜线，这样才可以避免 Perl 将它们误认为 Perl 程序本身的变量来看待。一旦这些变量成功传送给服务器，我们的 CGI 程序便可以像其它任何一般的 CGI 变量那样读取它们。 

控制客户端快取方式

由于 WAP 设备是在低频宽的网络环境下运作的，因此它们都相当倾向将内容储存在自身的高速缓存里面，以避免无谓的资料请求与传送过程。光是传送 CGI 参数给我们的 CGI 程序并不能保证我们送出的内容不会被 WAP 设备储存在高速缓存里面。无线上网设备会将它们储存起来，以 URL 做为索引键值，接下来每当有指向到该 URL 的请求的时候便会直接把之前储存的资料传回去，而不会向服务器询问这个页面从上次浏览过后是否已有更新过的资料。 

在下面这个范例程序里面我们便可以观看到这个运作过程。这个范例程序将时间与日期以 WML 的 deck 元素型式回传给 WAP 设备，并且附有一个 OK 按钮以便再次向服务器要求传送新的当时时间与日期。这个程序也要求使用者输入他的名字，以便自订回传的内容。 

#!/usr/bin/perl
use CGI;
use Date::Format;

print "Content-type: text/vnd.wap.wml\n\n";
print "<?xml version=\"1.0\" encoding=\"iso-8859-1\"?>\n";
print "<!DOCTYPE wml PUBLIC \"-//WAPFORUM//DTD WML 1.1//EN\" \"http://www.wapforum.org/DTD/wml_1.1.xml\">\n";

my $input = new CGI;
my $time = time2str("%a %b %e %T %Y\n", time);

print "<wml>\n";
print "　 <card id=\"time_and_date\">\n";
print "　　<do type=\"accept\" label=\"Ok\">\n";
print "　　　　 <go method=\"get\" href=>print "　　　　　　<postfield name=\"name\" value=\"\$name\"/>\n";
print "　　　　 </go>\n";
print "　　　</do>\n";
if ($input->param("name")) {
　 print "　 <p>".$input->param("name").", </p>\n";
}
print "　　　<p>现在时间是︰ ".$time."</p>\n";
print "　　　<p>请输入你的名字︰\n";
print "　　　<input name=\"name\" emptyok=\"false\"/></p>\n";
print "　 </card>\n";
print "</wml>\n"; 

当我们把上面这个程序放入仿真器去执行，我们在仿真器的请求纪录文件里面发现下面这些纪录︰ 

cache miss: http://wap.server.com/wml4.cgi
cache miss: http://wap.server.com/wml4.cgi?name=James
cache hit: <http://wap.server.com/wml4.cgi?name=James>;
cache hit: <http://wap.server.com/wml4.cgi?name=James>; 

第一笔请求纪录没有带入任何 CGI 参数，该笔记录实际透过网络向服务器送出请求，而我们的程序则传回当时的时间做为响应。第二笔纪录有带入一个 CGI 参数，该纪录同样也实际透过网络向服务器送出了请求。然而从第三笔记录开始，我们的 WAP 仿真器便不再向服务器实际提出请求了，而是直接将之前存入高速缓存的数据取出并显示在画面上，此时使用者收到的便是不正确的资料了。 

有两种方式可以易做图 WAP 装置透过网络实际向服务器提出请求。第一种是在程序中手动送出 HTTP 表头，告知客户端这个页面已经过期并且需要重新取得更新过的版本。在上面的范例里面，我们可以在 Content-type 表头后面再加上两个额外的表头，以易做图 WAP 装置向服务器取得新的内容而非直接取用高速缓存中的资料︰ 

print "Content-type: text/vnd.wap.wml\n";
print "Last-Modified: " . time2str("%a, %e %b %Y %T", time) . " GMT\n";
print "Expires: " . time2str("%a, %e %b %Y %T", time) . " GMT\n";
print "Cache-Control: no-cache, must-revalidate\n";
print "Pragma: no-cache\n\n"; 

第二个方式则是在送出的 WML 原始码的<head>区域里面加入与快取控制相关的<meta> 卷标︰ 

<head>
<meta http-equiv="Cache-Control" content="max-age=60" forua=true />
<meta http-equiv="Cache-Control" content="must-revalidate" forua= true/> 
<meta http-equiv="Cache-Control" content="no-cache" forua= true/>
</head> 

上面这些卷标和之前我们修改过后的 HTTP 表头具有相同的功用。 

WAP 请求表头

现在你已经具备制作供无线上网设备读取的内容的必备知识，接下来的任务便是针对不同厂商与型号的行动电话制作合适的内容了。在建立 WAP 网站的时候将会面临的最大问题之一便是不同的 WAP 浏览器所支持的功能都稍有不同。不过幸运的是，无线上网设备所传送给服务器的请求表头里面会告诉我们该软件的类型与支持的功能种类。下面这个范例程序会将 WAP 浏览器传送给服务器的请求表头全部显示出来︰ 

#!/usr/bin/perl
use CGI;

print "Content-type: text/vnd.wap.wml\n\n";
print "<?xml version=\"1.0\" encoding=\"iso-8859-1\"?>\n";

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

my $input = new CGI;

print "<wml>\n";
print " <card id=\"time_and_date\">\n";
foreach $header (%ENV) {
　 if ($header =~ /^HTTP/) {
　　　print " <p>$header: $ENV{$header}</p>\n";
　 }
}
print " </card>\n";
print "</wml>\n"; 

不同客户端所传送过来的表头信息基本上都是大致相同的，其中有些信息你可以略过不看没关系。但是这当中的确有些信息对我们来说是格外有用的。举例来说，正如同一般的网络浏览器那样，WAP 浏览器会传送一个 User-Agent 字符串给服务器，该字符串的内容指明了该型号的手机所使用的浏览器类型与版本。Perl 将这个表头信息以浏览器名称／版本的型式（BROWSER/VERSION）储存在 HTTP_USER_AGENT 这个变量里面。 

这项信息之所以有用之处在于并非每一种无线上网设备的浏览器都支持 WAP 格式。你可能会遇到有些浏览器仅接受 HDML 格式的内容，而非 WML。你可以建立一个索引表格来纪录这些不支持 WML 的浏览器，并且将它们屏除在程序服务的范围之外。或者你也可以检查 HTTP_ACCEPT 这个表头信息的值，看看其中是否有 text/vnd.wap.wml这个字符串，如果没有的话就代表该浏览器并不支持 WML 格式的内容。 

此外，HTTP_X_UP_SUBNO 这个表头信息代表该行动电话的全球唯一识别代码（每一支手机都不同）。你可以安全地透过这个信息来辨认出某支特定的行动电话，而不需要传送 cookie。不同于没有唯一识别码的一般网络浏览器，同一支行动电话每次连结到你的服务器的时候都会传送同样的唯一识别码给你的程序。 

透过 HTML::Mason 组件来制作 WAP 网站
如果你原本已经使用 HTML::Mason 组件来建立你的网站，别担心，你还是可以照样为 WAP 设备提供 WML 格式的内容服务。你在这篇文章里面读过的内容绝大部分都仍然有用，不过你的确需要以与原本稍微不同的方式来撰写你的 Mason 组件。 

这其中最重要的地方在于你必须记得要把 XML 格式宣告放在实际输出内容的第一行。如果在 HTTP 表头与 XML 格式宣告之间有任何内容被送出，那么 WAP 设备便无易做图常读取你所送出的内容了。其它唯一较为重要的改变在于 <%init> 区段，在这里面的 HTTP 内容类型资料必须符合 WAP 设备所要求的类型（亦即 text/vnd.wap.wml）。 

要看看如何使用 Mason 来撰写 WAP 程序，请把我们原本的 CGI 范例程序和这里提供的 Mason 组件版本做个比较。 

读到了这里，相信你应该已经能够开始建立你的无线网站应用程序了。随着越来越多内容提供者开始提供无线设备的上网服务，这项技术也成为一项越来越有用的工具。WAP 所能够提供的内容显然无法和一般 Web 浏览器相提并论，然而它却的确提供了一个极具弹性的应用程序开发环境。我们希望这能够帮助你将 Perl 无线网络应用程序应用在你的商业环境里面。