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();
原文地址:https://www.cnblogs.com/yuboyue/p/2109870.html