Perl WEB 开发之 Template

由于工作需要， 最近开始使用Perl来作为服务器脚本来处理Web 请求。系统采用的Template 来做Web page 的模板，用来简化繁琐但并不困难的HTML标签的编写。

Question 1： Template Toolkit 是啥？

Template Toolkit是一组Perl Module的集合， 它实现了一种快速的、灵活的、功能强大模板处理系统(Template Process System). 它主要用于生成动态的WEB内容，当然，它也可以被用来处理任何其他的文本信息。简单来说， Template Toolkit首先提供了一种简单的方式，用来将模板中的变量替换成其对应的值， 类似于其他编程语言中的变量赋值，当然其二者间有很大的差别。

例子：

Dear [% name %],

It has come to our attention that your account is in arrears to the sum of [% debt %].

Please settle your account before [% deadline %] or we  will be forced to revoke your Licence to Thrill.

The Management.

默认情况下， 在Template源文件中， template directives被嵌入到由字符序列“[%...%]”标记的块中。当然，你可以自己配置这种标记序列，同时也可以更改其它方面的配置。比如， 你可以设置INTERPOLATE选项的值，以perl的方式来嵌入你的变量：

Dear $name,

It has come to our attention that your account is in

arrears to the sum of $debt.

...etc...

Template Module 是啥？

刚刚初步了解了Template Toolkit的含义， 下面开始介绍Template Module。如果要对应到实际的物理文件，就是CPAN上的Template.pm。 概括来说， Template Module 提供了一个Template Toolkit的接口， 其他的Perl可以使用该接口集合来在perl 脚本里面方便的调用Template Toolkit的功能。

简单的Template 接口：

new(/%config):

构造函数（由Template 的base class Template::Base 来实现）。其参数是一个用于存放该新建的Template配置的一个Hash结构。

 my $tt = Template->new({

        INCLUDE_PATH => '/usr/local/templates',

        EVAL_PERL    => 1,

    }) || die $Template::ERROR, "/n";

process($template, /%vars, $output, %options
): 该函数被调用用来处理一个Template。

第一个参数为指向Template 文件的相对于INCLUDE_PATH的相对文件名， 也可以是包含了Template Text的字符串的引用，

或者是一个File handle（IO::Handle 或 sub-class）或 GLOB(如：/*STDIN)。

第二个参数是一个reference to Hash变量， 他包含了Template中需要的变量的定义。

第三个参数支持process函数处理完成的结果被输出到哪里[默认可选]。 

默认的情况， STDOUT是被使用。 也可通过这个参数和OUTPU_PATH共同来决定输出到什么位置，某个文件、字符串或File Handle

第四个参数同样是一个可选参数， 用来进一步来设定process过程的输出选项。目前仅有一个选项可用 binmode来指定是否以2进制方式输出。

# either: hash reference of options

$tt->process($infile, $vars, $outfile, { binmode => 1 })

  || die $tt->error(), "/n";

    

# or: list of name, value pairs

$tt->process($infile, $vars, $outfile, binmode => 1)

  || die $tt->error(), "/n";

error():
当以Class Method被调用的时候， 返回Package variable $ERROR, 所以如下两种表达方式所得到的结果一致：

my $tt = Template->new()

        || die Template->error(), "/n";



my $tt = Template->new()

        || die $Template::ERROR, "/n";

service(): 
Template Module 用来处理模板的时候，会将大多数任务交与底层的Template::Service来处理，而该函数会返回Template::Service对象的引用。

context(): Template::Service在运行时处理templates的时候，会依靠一个核心的Template::Context对象，这个方法返回指向这个对象的引用，它相当于调用

$template->service->context();