perl - 如何使用模板工具包从数组中获取元素？

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 %]