在编制PERL程序时，经常会用到很多相似的HTML代码。这样不但书写起来会很麻烦，而且一旦要改动页面，而程序很大，那就更麻烦了。

　　解决这样的问题一个好的方法就是使用模板。通常的模板使用方法有两种：

　　一种是将固定部分的HTML代码提取出来生成模板文件，不同的部分在模板上作一个标记。生成页面时，找到标记，将其替换成你想要输出的部分。

　　另一种是将固定部分的HTML代码提取出来作为一个函数，不同的部分在函数中设定参数。生成页面时，将要输出的部分作为参数传递给模板函数。

　　这两种方法基本上是异曲同工，但第一种借助DREAWEAVER，FRONTPAGE等编辑工具修改起界面来，应较为简单。而第二种输出显示时较为灵活。大家可根据需要灵活选择。

　　下面用两个简单的实例来介绍模板的基本用法。希望能起到抛砖引玉的作用。

　　用第一种方法：

　　show.htm ##模板文件
  　　  　　show.cgi ##程序文件
  　　  　　print "content-type:text/html\n\n";
  　　  　　$show_replace="welcome to here";
  　　  　　open(SHOW,"$filepath/show.htm");
  　　  　　while();
  　　  　　{$_=~s//$show_replace/g;
  　　  　　print "$_";  　　  　　}

　　用第二种方法：

sub show_template
{  　　  　　$show_replace=@_;
print <  　　$show_replace  　　  　　SHOW  　　  　　}
sub show  　　  　　{  　　  　　$show_replace="welcome to here";
&show_template($show_replace);  　　  　　}

　　以上是两种最简单的模板的应用。在现实应用中肯定不会如此简单。但只要你理解了这种思想，你就能举一反三，用起来也会得心应手。

关注天下网吧微信,了解网吧网咖经营管理，安装维护: