perl - 如何使用 Template Toolkit 从数组中获取元素？

Question

我有一个路径数组，我想用模板工具包读出这些路径。如何访问此数组的数组元素？情况是这样的：

my @dirs;
opendir(DIR,'./directory/') || die $!;
@dirs = readdir(DIR);
close DIR;
$vars->{'Tree'} = @dirs;

然后我这样调用模板页面：

$template->process('create.tmpl', $vars) 
   || die "Template process failed: ", $template->error(), "\n";

在这个模板中，我想在数组中创建一个目录树。我怎样才能访问它们？

我的想法是从foreach这样的模板中开始

[% FOREACH dir IN Tree.dirs %]
$dir
[% END %]

Answer 1

使用引用将数组或哈希传递到您的模板中：

$vars->{'Tree'} = \@dirs;

然后在模板中：

[% FOR d = Tree %]
    [% d %]
[% END %]