一种html模版输出方式
点击次数：17 次 发布日期：2008-11-26 15:14:06 作者：源代码网
|
################################################################################# # 函数名字 : 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; }; 源代码网供稿. |
