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

【问题标题】：Perl - Template Alloy and Template toolkit array refPerl - 模板合金和模板工具包数组参考
【发布时间】：2019-01-03 11:45:29
【问题描述】：

我使用模板合金和模板工具包，在 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 %]

如果我删除 IF 语句，我会得到：

父母数组(0x2539ad8)

我只想得到parent

我可以解决只是做 [% FOR parent = base.0 %]

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

【问题讨论】：

How to detect array type in Template toolkit?的可能重复

标签： perl template-toolkit

【解决方案1】：

这条线在多个方面是错误的：

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

您尝试取消引用（不存在的）变量ref。相反，您想要类似parent.ref() 的东西来调用变量parent 上的VMethod ref。但是Template Toolkit中没有这样的VMethod。

模板工具包中也没有运算符ne。这是!=。您必须找出记录语法错误的位置并进行检查。

有一个技巧可以找出一个变量是否是一个普通的数组引用。您可以使用示例 Perl 文件尝试此代码：

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

基本上，这会检查变量 menus 在强制转换为字符串时是否与模板工具包（和 Perl）中数组引用的默认呈现相匹配。这是一个有许多注意事项的 hack，但是当您知道输入数据时，它可以用于实际目的。

【讨论】：