Question

我使用模板合金和模板工具包，在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中获取引用数组的解决方案。

Answer 1

此行有多种错误之处：

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

您尝试取消引用（不存在的）变量ref。相反，您希望像parent.ref()这样的东西来对变量ref调用VMethod parent。但是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在被强制转换为字符串时是否匹配Template Toolkit（和Perl）中数组引用的默认呈现。这是一个有很多警告的技巧，但是当您知道输入数据时，它就可以用于实际目的。

Perl-模板合金和模板工具箱阵列参考

1 个答案: