黑色海岸线论坛 - Powered by Discuz! Board

标题: Perl与WAP [打印本页]

Welcome to NEW Inc. Telephone Book Click to view list

Cao Jian - 123-4567 Zhang San - 123-4568

Director of OS development Phone number: 123-4567 Fax number: 098-7654

Senior VP of OS research Phone number: 123-4568 Fax number: 098-7655

通过这个程序我们可以看到，如果增加新的职员，那么我们就不得不重新修改程序文件。这显然不是一个好办法。因此，我们设计了people_data.txt文本文件，可以随时增加职员数据，然后使用Perl实现上述WML页面的任务。我们的目标是，程序设计好后无需改动，只需通过给文本文件添加职员数据，就可以通过Perl编写的WML页面实现对增添职员后数据的浏览。使用Perl编程时，最先需要完成的是设置我们的Perl环境。我们可以使用CGI模块来进行HTTP数据显示和处理，代码如下： #!/usr/bin/perl -w use strict; use CGI qw/:standard/; # Our CGI object my $q = new CGI; 接下来，我们使用Perl语言编写上述WML页面的主体部分，同时建立标量变量，来保存文本文件名，以备后面从中读取数据。另外创建动态ID，这里用"a"表示，用于标识每一条职员数据，即一条记录。我们的目的是一次性地将所有的职员数据都生成卡片，然后使用一个初始化的缓冲区来显示职员的数据内容。这段代码如下： # 定义获取职员信息的数据文件 my $data = "people_data.txt"; # 显示标题的卡片 my $title_card = qq (

Welcome to NEW Inc. Telephone Book
Click to view list

); # 初始化第一条记录的ID my $id = "a"; # 开始创建浏览卡片 my $view_card = '

Click on a name for more info
'; # 用于临时存放卡片信息的变量(相当于缓冲区) my $all_info_card; 下面，我们要打开数据文件，当然打开前要检查权限，以保证我们真的能够打开，然后进行数据的读取。读取时，指定文本文件中以“#”开头的行仅作注释之用，不属于被读的内容。在读取数据的过程当中，我们需要做一定的检查，以保证每个部分的确有数据。在这里，我们把从文件中提取的数据传给两个子过程，它们将返回由这些参数数据所确定的卡片。注意我们使用了Perl的“ .= operator”运算符，它使得子过程返回的字符串将不断地扩充。实现这段任务的代码如下： # 读取指定文件中的数据 open(FILE,"$data") || die "Can't open $data: $!\n"; while () { chomp; next if (/^\#/); my ($name, $phone, $fax, $position) = split(/\|/); # 调用子过程，创建浏览卡片 $view_card .= build_view_card($name, $phone, $fax, $position); # 调用子过程，创建职员信息卡片 $all_info_card .= build_info_card($name, $phone, $fax, $position); } 其中调用的子过程build_view_card的代码如下： sub build_view_card { $id++; my ($name, $phone, $fax, $position) = @_; my $info_item = qq ( $name - $phone
); return $info_item; } 它的功能是接收参数数据，并把这些数据插入到一个简单的模板里面。由于我们每次都在增加$id变量的数值，从而保证每个记录都有唯一的id号。这是因为Perl允许我们直接使用 ++ 操作符，使得$id变量的值从'a'增加到'b'、'c'等进行递增。另一子过程build_info_card的代码如下： sub build_info_card { # 定义用于显示单个职员信息的卡片 my ($name, $phone, $fax, $position) = @_; my $info_card = qq (

$position
Phone number: $phone
Fax number: $fax

); return $info_card; } 它的功能是定义另一卡片，以显示每个职员的信息。由于我们已经在前面的子过程中增加了$id的数值，所以我们在这个子过程中所需做的只是返回一个新的卡片。以上的分析和实现的代码完成了本例的基本功能，下面我们还要写出程序的WML文件头和执行上述代码的主过程，代码如下： $view_card .= "

"; my $header = qq ( ); # 执行整个WML卡片的主过程 my $deck = qq( $header $title_card $view_card $all_info_card ); print $q->header('text/vnd.wap.wml'); print $deck; 把以上使用Perl编写的WML代码放在一起(存放数据的文本文件内容除外)，就是我们解决的动态显示职员信息的WML应用程序。

作者: Admin 时间: 2005-1-2 19:23 标题: Perl与WAP

Perl与WAP的综合应用使用Perl也可生成WAP页面和开发出复杂的WAP应用。我们还是以WML为例来说明Perl在WAP开发中的具体应用。当然，用户首先应当配置好自己的系统，使之能够运行Perl，而且还要具有CGI的基本知识，了解Perl的语法。基本规则使用Perl编写WML程序的基本规则如下： (1) 程序行语句均以分号( ; )结尾，这是与PHP编写WML程序一致的地方。 (2) 使用print语句来声明WML的文件头信息，并在WML行后面加上换行符“\n”。基本格式为： print "……(WML标签或语句行) \n"; 声明WML文件头信息的Perl代码为： print "Content-type: text/vnd.wap.wml\n\n"; print "\n"; print "\n"; 文件头信息的声明也可以使用Perl的标量变量来实现，具体方法下面马上介绍。 (4) 其他WML标签和语句行的实现比较灵活，既可以使用上述格式的print语句来实现，也可以通过Perl的标量变量形式来实现。我们这里主要介绍后一种形式，即将一个WML卡片的内容赋给一个Perl的标量变量，然后通过变量的操作来实现WML页面，其基本格式为： $变量名 = 标识名 ( ……(WML标签或语句) ); 或： $变量名 = ' ……(WML标签或语句) '; 例如，显示“Hello!”信息的WML页面利用标量变量的第一种形式可以表示为： $testwml = mywml (

Hello!

); 其中标量变量名testwml和标识名mywml由用户定义，不过要符合Perl的语法要求。上述页面利用标量变量的第二种形式可以表示为： $testwml = '

Hello!

'; (5) 使用Perl语言编写WML程序时，Perl的注释符“#”仍然可以使用，且需要告诉系统Perl解释器所在的目录，如“/usr/bin/perl”，这一行通常放在程序的第一行： #!/usr/bin/perl 其中的感叹号(!)用于表明该程序的类型，不可省略。 (6) 文件最后保存时采用的扩展名为“.pl”，如果实现的是CGI编程，则取扩展名为“.cgi”，不能取“.wml”等扩展名。在这些基本规则下，我们就可使用Perl语言的强大CGI处理功能，来编写复杂的WML应用了。

欢迎光临黑色海岸线论坛 (http://bbs.thysea.com/)