如何从模板工具箱访问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 };