perl - 如何检测模板工具包中的数组类型？

Question

关闭。这个问题需要 details or clarity .它目前不接受答案。

---

想要改进这个问题吗？ 通过 editing this post 添加详细信息并澄清问题.

关闭 8 年前。

Improve this question

我需要在模板工具包中为数组类型的附件检测一些变量。有最佳做法吗？

Answer 1

可以定义一个自定义虚拟方法，该方法返回所提供变量的 ref 类型。粗略的例子:

#!/usr/bin/perl
use strict;
use warnings;
use Template;
use Template::Stash;

$Template::Stash::SCALAR_OPS->{ ttref } = \&ttref;
$Template::Stash::LIST_OPS  ->{ ttref } = \&ttref;
$Template::Stash::HASH_OPS  ->{ ttref } = \&ttref;

my $t = Template->new( );

$t->process( \*DATA, { vars => [ 1, [ ], { } ] } );

sub ttref
{
    return ref $_[0];
}

__DATA__
[% FOREACH var IN vars -%]
ref type of [% var %] is [% var.ttref %]
[% END %]

输出:

ref type of 1 is 
ref type of ARRAY(0x9cfbd0) is ARRAY
ref type of HASH(0x9cfc00) is HASH