|
今天用 Catalyst 写一个 RSS 聚合器程序的时候，发现 TT 的配置总是出错。后来才发现原来是配置选项出了点问题。 原来的代码差不多是这样子的：
package Feeder::V::TT;use strict;
use base "Catalyst::View::TT";
use Template::Constants qw( :debug ); __PACKAGE__->config({
# any TT configurations items go here
INCLUDE_PATH => Feeder->config->{"home"} . "/templates/",
POST_CHOMP => 1,
PRE_CHOMP => 1,
EVAL_PERL => 1,
PRE_PROCESS => "header.tt",
POST_PROCESS => "footer.tt",
DEBUG => DEBUG_PARSER | DEBUG_PROVIDER,
CONTEXT => undef, # two optional config items
CATALYST_VAR => "Catalyst",
TIMER => 1,
}); 可怎么运行都不行。试了好一会儿，后来才发现原来 Template 的 INCLUDE_PATH 默认是用 : 来分隔多个路径的，比如：
INCLUDE_PATH => "/home/abw/templates:/usr/share/templates", 这样就是两个路径。而我运行在 Win32 下，发现 Template 将 E:/Fayland/Feeder/templates 划分为了两个路径 E 和 /Fayland/Feeder/templates, 所以运行程序总是跳出找不到模版文件。知道原因后查了查 Perl Template Toolkit 一书，在配置里加了一句：
DELIMITER => ";", 这样就不是用 : 而是用 ; 来划分了。 这只是因为自己不熟悉 Template 的配置选项。于是就复习了一遍，将常用的几个翻译如下： ABSOLUTE指出用绝对路径的文件是否被解析。默认为 0.
如 /foo/bar 在 1 时为绝对路径而在 0 时为相对路径。
在 0 时使用类如 [% INSERT /etc/passwd %] 会出错，除非相对路径也有这文件。 ANYCASE指示性关键字如 INCLUDE 是否允许小写 BLOCKS此选项用于预先定义一系列模版块。
my $tt = Template->new({
BLOCKS => {
header => "The Header. [% title %]",
footer => sub { return $some_output_text },
another => Template::Document->new({ ... }),
},
});Hash 的值可以是模版内容，子程序或是 Template::Document
这样我们就可以在其他模版文件里调用它们。 COMPILE_DIR/COMPILE_EXTTemplate 可以将模版文件编译成 Perl 文件保存以便接下来的再次调用。
my $tt1 = Template->new({
COMPILE_DIR => "/tmp/ttc",
COMPILE_EXT => ".ttc1",
});COMPILE_DIR 是地址，COMPILE_EXT 为后缀名。 DELIMITER这就是我所碰到的问题解决方案。解释见最前面。
# Win32 only
my $tt = Template->new({
DELIMITER => ";",
INCLUDE_PATH => "C:/TT2/Templates;D:/My Templates",
}); CONSTANTS编译时编译一次这些常量，而不是每次运行都编译一次。这样能稍微提高点速度。
my $tt = Template->new({
CONSTANTS => {
title => "A Demo Page",
author => "Joe Random Hacker",
version => 3.14,
},
};CONSTANT_NAMESPACE所有定义的 CONSTANTS 默认用 [% constants.title %] 来获得。而 CONSTANT_NAMESPACE 用来改变前缀。如：
CONSTANTS_NAMESPACE => "const", 后，可以用 [% const.title %] 来访问。 NAMESPACE用来定义多个 CONSTANT_NAMESPACE
my $tt = Template->new({
NAMESPACE => {
site => Template:::Namespace::Constants->new({
title => "Wardley"s Widgets",
version => 2.718,
}), author => Template:::Namespace::Constants->new({
name => "Andy Wardley",
email => "abw@andywardley.com",
}),
},
}; 这样你就可以分别用 [% site.title %] 和 [% author.name %] 访问不同的常量。 CONTEXT设置上下文。具体用途有点复杂。略过。 DEBUG设置哪些地方需要调式。所定义的常量位于 use Template::Constants qw( :debug );
有两种写法：
DEBUG => DEBUG_PARSER | DEBUG_PROVIDER,
# or
DEBUG => "parser, provider",
具体哪个啥意思查手册。 DEFAULT当在 INCLUDE_PATH 里找不到模版文件时，默认调用该文件
my $tt = Template->new({
DEFAULT => "notfound.html",
});ERROR/ERRORS定义一些常用的 错误 模版，然后在必要时调用它们。
my $tt = Template->new({
ERROR => {
"user.login" => "user/login.html",
"user.passwd" => "user/badpasswd.html",
"user" => "user/index.html",
"default" => "error/default",
},
});必要时通过 [% THROW user.login "no user id: please login" %] 来调用。
或在当前的 Template::Context 调用： $context->throw("user.passwd", "Incorrect Password");
或在 Perl 代码中调用： die (Template::Exception->new("user.denied", "Invalid User ID")); EVAL_PERL确定类如 PERL 或 RAWPERL 这样的块是否被执行。默认为 0 FILTERS自定义自己的 filter, 过滤器。用于处理文件的某一些转换。 Template 默认自带了一些。
$tt = Template->new({
FILTERS => {
"sfilt1" => &static_filter, # static
"sfilt2" => [ &static_filter, 0 ], # same as above
"dfilt1" => [ &dynamic_filter_factory, 1 ],
},
});而后调用
[% FILTER sfilt1 %]
Blah blah blah.
[% END %] INCLUDE_PATH这个前面用了 n 多次了。它就是用于指定你要搜索的模版文件的文件夹。这几乎是用得最多的一个指令。 START_TAG/END_TAG用以指定 template 指令的起始和终止符号。默认为 %
my $tt = Template->new({
START_TAG => quotemeta("<+"),
END_TAG => quotemeta("+>"),
});
这样就用 <+ INCLUDE foobar +> 而不是 [% %] 来调用指令了。 INTERPOLATE内插。默认为 0
# INTERPOLATE => 0
<a href="http://[% server %]/[% help %]">
<img src="[% images %]/help.gif"></a>
[% myorg.name %]# INTERPOLATE => 1
<a href="http://$server/$help">
<img src="$images/help.gif"></a>
$myorg.name
# explicit scoping with { }
<img src="$images/${icon.next}.gif">
OUTPUT/OUTPUT_PATH这个我在老版本的 Eplanet 里是常用的。可以将内容输出到文件。 PRE_CHOMP, POST_CHOMP是否在 [% %] 指令前后去除空行。默认不去除。这样的话：
<a href="[% address %]">Click Here</a> 的话产生的最后结果可能是：
<a href="
fayland.html
">Click Here</a> 我喜欢将它们设置成 1, 即使有时候应该分开的行也并起来了。 PRE_DEFINE, VARIABLES这两个选项是一样的。用于设置一些默认值。如果 STASH 没有设置的话采用它们，设定的话忽略。
my $tt = Template->new({
PRE_DEFINE => {
title => "A Demo Page",
author => "Joe Random Hacker",
version => 3.14,
},
};PRE_PROCESS, POST_PROCESS调用一个 process 模版文件时预先调用和后来调用的模版文件。一般用于放置头文件和尾文件。
my $tt = Template->new({
PRE_PROCESS => [ "config", "header" ],
POST_PROCESS => "footer",
};STASH, process这些在 Catalyst 没用到所以也不介绍了。 Enjoy!Share me what u think.
|
收 藏
投 稿
繁 体
RSS 
欢迎在本站发布信息，在线投递稿件
我要投稿
打印本文
推荐本文
加入收藏
返回顶部
关闭窗口
