html输出方式,一种html模版输出方式

一种html模版输出方式

作者：佚名 来源：CNZZ 2007-12-28

代码出处 唐伟多用途信息平台

#################################################################################

# 函数名字 : html_open #

# 调用方法 : $html = [$html_open($html_address,no)] #

# 最后的no表示不替换文件中的变量 #

# 所需元素 : 需要读取的文件 #

# 返 回 值 : 读取出来的结果 #

# 用 途 : HTML模板读取 #

#################################################################################

# ------------------------------------------------------

# 自定义函数：

sub html_open {

local(*FILE);

my($file);

my($HTML);

my $id = $_[0];

if ($id eq ""){$id = "1"};

my $file = $_[1] or print"超文本模板打开错误！导致错误的文件是:$file

HTML MODEL FILE OPEN ERROR!!!
file: $file open error!";

open(FILE, "HTML MODEL FILE OPEN ERROR!!!
file: $file open error!";

my $html;

while (){$html .= $_};

close(FILE);

$html =~s/\$db_config/db_config/isg;

my $html_filter = $_[2];

if ($html_filter ne "no"){

$html =~ s/(\$(?:(?:\w+)|\$(\w+)|(?:{\w+})|(?:{'\w+'}))+)/$1/eeg;

};

$html .= [$copyright]

return $html;

};