一种html模版输出方式

pp

代码出处 唐伟多用途信息平台
#################################################################################
# 函数名字 : 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;
};
[DISABLELBCODE]