Perl/CGI 模板
(2006-01-22 21:31)
分类： Perl Coding
使用模板技术，可以大量节省代码的编写量，提高代码效率，便于调试。一般我们把常用的HTML代码放到后缀为“.html”的文件中作为模板，并将 这些模板文件统一放在名为“templates/”的子目录下。然后在所写的Perl/CGI 程序中，使用这些HTML模板文件。)另外，在你给模板文件命名时，尽量取些描述性强的名字。通常的命名方法是：下划线后面紧跟程序名，目的是用来区分常 规的HTML文件和HTML模板。
一个典型的例子，比如 _header.html，存放网页头的一些公共信息；_footer.html 存放网页尾部相关信息。
### _header.html
Content-type:text/html
<!DOCTYPE HTML PUBLIC '-//W3C//DTD HTML 4.0 Transitional//EN'>
<html>
<head>
<meta http-equiv='Content-Type' content='text/html; charset=UTF-8'>
<title>$title</title>
<link rel='stylesheet' href='style.css'>
</head>
<body>
## _footer.html
</body>
</html>
为了在Perl里面调用这些模板，我们将编制一个称为Template的Perl子程序，程序代码如下：
sub Template {
my $file;# file path
my $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+)/eval "$1"/ge;
return $HTML;
}
该程序中的大部分语句很简单，我们只是打开了一个模板文件，把其内容读出，并返回给程序。所用的技巧是使用了下面的正则表达式，它是用来搜索HTML模板中的Perl变量， (如：$title) 把变量的值取代其符号表示。
完整的程序代码如下：
#!/usr/bin/perl -w
use strict;
my $title = "Hello, world !";
print &Template("templates/_header.html");
<your body code here ...>
print &Template(templates/_footer.html");
============================================================================
[附: bash shell 也可以哦 !]
function template () {
file=$1
[ -z "$file" ] && die "No template file specified."
eval echo -e "\"`cat $file`\""
}
#!/bin/sh
title="Hello, world !"
template "templates/_header.html"
<your body code here ...>
template "templates/_footer.html"