Perl-模板合金和模板工具包数组参考

我使用template alloy和template toolkit，在TT中，我希望像使用perl一样检测数组引用：

for my $parents ( @{$value} ){

  if (ref($parents) ne 'ARRAY'){
    push @all_urls_names, $parents;
  }

}

这是我在tt中的代码：

use warnings;
use v5.20; #strict is already set in the version

use Template;

my $t = Template->new(
    INCLUDE_PATH => ['.'],
);

my @menus = ( 

 ["parent",
   [qw(child1 child12 child13 child14) ]
 ],

 );

my $mvs = {# my variables
   menus => \@menus
};

$t->process("index.tt", $mvs, \my $out) || die $t->error;

sub {
   return [ 200, [], [ $out ] ];
}

在index.tt中：

[% FOR base = menus %]

 [% FOR parent = base %]

   [% IF ref.parent ne "ARRAY" %]
      <li>[% parent %] </li>
   [% END %]

 [% END %]

[% END %]

[%FOR base=菜单%]
[%FOR parent=base%]
[%IF ref.parent ne“ARRAY”%]
[%parent%]
[%END%]
[%END%]
[%END%]

如果我删除

If

语句，我会得到以下结果：

母公司 阵列（0x2539ad8）

我只想得到

parent

我可以修改只做[%FOR parent=base.0%]

---

但是我想知道一个在TT中获取ref数组的解决方案。

这一行在很多方面都是错误的：

[% IF ref.parent ne "ARRAY" %]

您尝试取消引用（不存在）变量

ref

。相反，您需要类似于

parent.ref（）

的东西来调用变量

parent

上的VMethod

ref

。但在模板工具箱中没有这样的VMethod

模板工具箱中也没有操作员

ne

。这是

=。您必须找出语法错误记录的位置并进行检查

不过有一种方法可以找出一个变量是否是一个普通数组引用。您可以使用示例Perl文件尝试以下代码：

[% stringified = '' _ menus %]
[% IF stringified.match('ARRAY\\(0x[0-9a-f]+\\)') %]
    array ref ([% stringified %])
[% ELSE %]
    not an array ref ([% stringified %])
[% END %]

基本上，这会检查变量
菜单
在强制转换为字符串时是否与模板工具包（和Perl）中数组引用的默认呈现相匹配。这是一个有很多警告的黑客攻击，但它是为了实际目的而工作的，当你知道你的输入数据时。
可能重复的