Linux脚本语言PERL的模板应用分析

lupd

在编制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);
　　
　　}
　　
　　以上是两种最简单的模板的应用。在现实应用中肯定不会如此简单。但只要你理解了这种思想，你就能举一反三，用起来也会得心应手。