今天用 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_EXT
Template 可以将模版文件编译成 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.