cgi html模板,Perl/CGI 模板

使用模板技术，可以大量节省代码的编写量，提高代码效率，便于调试。一般我们把常用的HTML代码放到后缀为“.html”的文件中作为模板，并将

这些模板文件统一放在名为“templates/”的子目录下。然后在所写的Perl/CGI

程序中，使用这些HTML模板文件。)另外，在你给模板文件命名时，尽量取些描述性强的名字。通常的命名方法是：下划线后面紧跟程序名，目的是用来区分常

规的HTML文件和HTML模板。

一个典型的例子，比如 _header.html，存放网页头的一些公共信息；_footer.html 存放网页尾部相关信息。

### _header.html

Content-type:text/html

$title

## _footer.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, "while () { $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");

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"

template "templates/_footer.html"