perl - 如何使用模板工具包检查数组中是否存在元素

Question

我试图找出一个数组是否包含模板工具包中的一个元素。不确定如何？谁能帮忙？

my $var ={
myarray => ['a','c','b','d']
}

传递给 tt:

现在要检查:

[% IF ( myarray contains 'a') %]
[% END %]

[% IF ( myarray contains 'e') %]
[% END %]

Answer 1

grep

Returns a list of the items in the list that match a regular expression pattern.

因此，

[% IF myarray.grep('^e\z').size %]
<p>Hello World</p>
[% END %]