一種html模版輸出方式

代碼出處 唐偉多用途信息平臺
#################################################################################
# 函數名字 : 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;
};

原文轉自：http://www.kjueaiud.com