使用Perl的Template.pm，如何从数组中选择随机元素并将其输出？

Question

假设我的模板中有以下内容：

[%- pages = [ 'one', 'two', 'three' ] -%]

<p>Go to page [%- ... -%]</p>

假设 EVAL_PERL 未设置（即，我无法使用 [%- PERL -%] 块），我需要在上面的 [%- ... -%] 中放入什么才能获得以下输出？

<p>Go to page "a randomly picked element of pages"</p>

Answer 1

默认情况下，模板中不支持 rand，因此您必须通过其他代码（例如 斜杠）或使用 Template::Plugin::Math，例如：

[%- USE Math -%]

[%- pages = [ 'one', 'two', 'three' ] -%]

<p>Go to page [%- pages.${ Math.rand(pages.size) } -%]</p>

输出：

$ tpage test.html

<p>Go to page three</p>

Answer 2

如果我必须做任何复杂的事情，我只需使用 [%PERL%] 部分并跳过 Template Toolkit 语法。

此外，我在控制器中尽可能多地计算并传递要使用的值的数据结构。我尽量不在模板中选择值或创建新值。一旦将逻辑移入模板，当您有另一组模板时，就必须重新定义它。