如何将Perl多维哈希合并到HTML::Template的param()参数中

你的问题出在直接将哈希引用作为参数传入param()，Perl会把哈希引用当成单个标量值，导致参数总数变成奇数（子哈希引用1个元素 + name=>Bob两个元素，总共3个），触发odd number of parameters错误。

解决方案：解引用子哈希，展开键值对列表 #

要把子哈希里的所有键值对直接传入param()，需要先对哈希引用进行解引用，把它展开成键值对的列表，再和额外参数拼接。

修正后的代码：

my %myhash = ( '9343X' => { 'param1' => 'Walter', 'param2' => 'Blue', 'param3' => 513 } );

my $items = scalar keys %myhash;

if ($items == 1) {
    my ($firstkey) = keys %myhash; # 更清晰的方式获取唯一键
    $template->param(
        %{$myhash{$firstkey}}, # 解引用子哈希，展开为键值对列表
        name => "Bob"
    );
}

关键细节说明 #

• %{$myhash{$firstkey}}：将子哈希的引用解引用为普通哈希，在列表上下文（param()的参数列表就是列表上下文）中会自动展开成param1 => 'Walter', param2 => 'Blue', param3 => 513这样的键值对序列。
• 这样整个param()的参数列表就变成了3组键值对（共6个元素），是偶数，符合HTML::Template的要求。

内容的提问来源于stack exchange，提问作者Niska