首页 >> 读书频道 >> 电脑 >> 在Perl/CGI中使用模板
 
· PERL与MySQL(D
· Perl 程序的属性祥解
· Perl CGI 环境变
· 使用JDK 1.4中的r
· Perl的经典用法
· 构造Jsp/javabe
· 一个支持HTTP续传下载
· JDK的环境配置
· perl 域名查询程序
· 如何配置Java Ser
· 用 perl 实现文件上
· JDK安装
 
· 电视剧《刁蛮公主》下载和
· 美容养颜手册
· 加油金顺剧情分集介绍完整
· 红楼梦:120回全本[清
· 素质教育在美国
· 全唐诗卷四十六
· 韩剧《布拉格恋人》剧情介
· 夜航船[作者:明·张岱]
· 局外人[作者:韩·可爱淘
· 现场流行病学
· 源氏物语[日本:紫式部]
· 武林寓言故事
 
· (出租)中动商场部分及写
· (出租)中动动漫基地&#
· 喜剧学院
· 《善德女王》剧情介绍
· 魔女18号 剧情
· 丑女无敌剧情介绍
· 魔女幼熙剧情介绍
· 龙游天下剧情介绍
· 震撼世界的七日剧情介绍
· 静静的白桦林剧情介绍
· 心情日记—老公今天我想对
· 旗舰剧情介绍
欢迎来到月影社区!如果您觉得这里不错,请推荐给您的朋友们。月影社区:http://wf66.com/

在Perl/CGI中使用模板


查看有无更新版本

关键字:CGI/PERL 2006-9-20

 

大部分网络应用程序中用了很多HTML代码。象Hotmail这样的基于web的电子邮件系统,其中的登录屏幕、邮箱、发送信息、文件夹、菜单条、设置选项和其它栏目都使用了HTML代码。

网络程序是可以使用HTML的,但问题是HTML出现的地方太多,程序的每个需要显示的部分都需要设计HTML页面。这些HTML代码出现在哪里呢?就在你的Perl源码中。这就意味着在你的程序中,将会插入数千行的HTML代码,你的perl程序将会变得很难调试,在调试HTML的屏幕显示时,也是困难重重,要是此时再换个其他人来编辑HTML,就更是雪上加霜,不用提有多混乱了。解决这些问题的办法是:把HTML代码放到后缀为“.HTML”的文件中去,作为模板,然后,在所写的Perl/CGI 程序中,使用这些HTML模板文件。
为所有的那些HTML找一个新家
组织你的HTML模板的最好方法,就是让它们尽量靠近你的程序的存放目录。(要么同你的程序一起都放在同一目录中,要么把模板文件放在名为“/templates/”的子目录中。) 另外,在你给模板文件命名时,尽量取些描述性强的名字。我通常的命名方法是:下划线后面紧跟程序名,目的是用来区分常规的HTML文件和HTML模板。

例如,如果要创建基于Web的电子邮件程序“Web Mail”,我们的模板就这样命名:

_webmail_login.html # 登录

_webmail_message_list.html # 显示信件

_webmail_message_read.html # 阅读信件

_webmail_message_send.html # 创建/发送信件

_webmail_message_erase.html # 删除信件

_webmail_message_erase_confirm.html # 确认删除

_webmail_logoff.html # 退出


一看文件名,我们就很容易知道该文件是做什么的。一段时间以后,回过头来再作修改时,也不会搞错。如果你是同其他网络开发者协同工作,也不用担心他们在修改时会把程序搞乱。
现在,我们开始着手把所有的HTML从Perl/CGI程序中移出去,放到HTML模板文件中,然后,还需要有个办法把它们显示出来。所以,我们将编制一个称为&Template的Perl子程序,程序代码如下:

sub Template {

local(*FILE);# filehandle

local($file);# file path

local($HTML);# HTML data

 

$file = $_[0] || die "Template : No template file specified\n";

 

open(FILE, "<$file") || die "Template : Couldn't open $file : $!\n";

while (<FILE>) { $HTML .= $_; }

close(FILE);

 

$HTML =~ s/\$(\w+)/${$1}/g;

 

return $HTML;

}


该程序中的大部分语句很简单,我们只是打开了一个模板文件,把其内容读出,并返回给程序。所用的技巧是使用了下面的正则表达式,它是用来搜索HTML模板中的Perl变量, (如:“$date”) 把变量的值取代其符号表示。

$HTML =~ s/\$(\w+)/${$1}/g;

其工作原理是这样的:正则表达式搜索以“$”开头的变量名,“\w”表示字符(a-z,A-Z,0-9 或下划线),“+”意味着一个或多个字符。“\w+”两边的括号表示要把匹配的变量名存到“$1”中,最后, “${$1}”计算出变量的值。记住,变量名存放在$1中。下面为例子:

### 显示登录屏幕

print "Content-type: text/html\n\n";

print &Template("_webmail_login.html");


这样,尽管HTML是存放在模板中,并不在你的程序里,变量值也可以算出来。

复杂的模板和HTML段
在某些场合,仅仅使用单一的模板还不能完成相应的任务,如在使用搜索引擎时,搜索结果往往情况各异,又比如,在做天气预报的网页时,你会根据预报的结果,来选择相应的图像和文本显示。在这些场合,你可以使用多个模板文件来构成显示屏幕。例如,你可以把下面的搜索结果放在页面抬头和脚注之间:

_search_results_header.htmlf # 页面抬头

_search_results_result.htmlf # 结果行

_search_results_footer.htmlf # 页面脚注


上面的每个部分被称为HTML片断,因为它仅是一个完整的HTML页中的一部分。我们把HTML片断文件的后缀规定为“.htmlf”,这就可以同完整的HTML文件区分开来。通过把HTML网页分解成HTML片断,你就可以在屏幕上显示出任何数量的搜索结果。

print &Template("_search_results_header.htmlf");

foreach $result (@results) {

print &Template("_search_results_result.htmlf");

}

print &Template("_search_results_footer.htmlf");


在我们天气预报的例子中,也可以使用HTML片断。同前面的例子相比,所不同的是,HTML片断并不是一个接一个地显示在屏幕上,而是在另外一个网页中根据需要,加载相应的HTML片断。比方说吧,我们的天气预报的主文件模板为_weather.html,我们打算把未来三天的天气预报插入到主HTML网页上,我们引入变量“$day1 $day2 $day3”,对每一种可能的天气情况,我们创建一个小的HTML片断文件,然后,根据需要,进行加载。

### Load HTML fragments for weather forecast

$day1 = &Template("_weather_sunny.htmlf");

$day2 = &Template("_weather_cloudy.htmlf");

$day3 = &Template("_weather_snowing.htmlf");

print &Template("_weather.html");

在HTML文件中,对于变量的表示方法,对于程序员来说是很熟悉的。(如,“Today is $date”)。然而有些人则认为,如果使用其它符号来标识变量,而不是用“$”符号,感觉更容易些。即使你是第一次考虑用模板来代替程序行中的HTML代码,此时你也仅需作很少的修改,就可以在程序中使用象“%variable%” ,“ __variable__”或采用其它你觉得有意义的符号。我认为通过使用模板,要作这些小修改不是很难的。

本文作者Dave Edis是Edis Digital公司的总裁,其公司位于加拿大,提供网络媒体的解决方案。Edis Digital公司为世界各地的用户开发基于Web的出版工具和应用程序。

 

在Perl/CGI中使用模板

[ 1 ]
在Perl/CGI中使用模板 num

打印本页 关闭

关于我们版权声明本站导航友情连结作品演示 TOP↑