代码出处 唐伟多用途信息平台
#################################################################################
# 函数名字 :
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 <p>HTML MODEL FILE OPEN ERROR!!!<BR>file: $file open error!";
open(FILE, "<$file") or print"超文本模板打开错误！导致错误的文件是:$file <p>HTML MODEL FILE OPEN ERROR!!!<BR>file: $file open error!";
my $
html
;
while (<FILE>){$
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
;
};