如何从Template Toolkit访问perl散列值(它是一个数组)

Question

我在perl中分配了一个散列，如下所示：

my %myvers;
my @patches = ();
my @mypatches = ();
foreach my $myv ( @{$product->versions} ){
@patches = set_patches($myv->id);   #get the array of patches for the version
foreach(@patches) {
push @mypatches,@{$_};
}
$myvers{$myv->name} = @mypatches;
}
$vars->{'myvers'} = %myvers;

当我使用以下代码访问html模板中的哈希时：

[% FOREACH key IN myvers.keys %]
alert('[% key %] is [% myvers.$key %]; ');
[% END %] 

key包含键，

$key我无法访问数组元素的值。我该怎么做？

Answer 1

问题是不存储元素，只存储大小。

$myvers{ $myv->name } = @mypatches;

为散列值赋值会强制使用标量上下文，因此@mypatches返回数组的大小。您需要存储对数组的引用：

$myvers{ $myv->name } = [ @mypatches ];

在外循环中声明数组并使用引用可能更常见。事实上，您可以跳过逐个推送元素，因为您可以推送整个数组：push @mypatches, @patches，但是，您根本不需要两个数组：

my %myvers;
for my $myv (@{ $product->versions }) {
my @patches = set_patches($myv->id);
$myvers{ $myv->name } = @patches;
}
$vars->{myvers} = %myvers;

或者，如果你真的想简洁一点：

$myvers{ $_->name } = [ set_patches($_->id) ] for @{ $product->versions };