模板工具包中的 Perl 多维散列答案

【问题标题】：Perl Multidimensional Hash in Template Toolkit模板工具包中的 Perl 多维散列
【发布时间】：2020-12-11 19:50:45
【问题描述】：

我有以下 perl 多维散列，它作为散列引用从 Dancer 传递到 Template Toolkit。我无法弄清楚如何在 Template Toolkit 中显示它。

$VAR1 = {
          'TylerMontgomery(2022)' => {
                                   'so' => 1,
                                   'bb' => 1,
                                   'rbis' => 0,
                                   'atbats' => 7,
                                   'runs' => 2,
                                   'hits' => 2
                                 },
          'ChaseLangan(2022)' => {
                                     'runs' => 4,
                                     'hits' => 4,
                                     'atbats' => 5,
                                     'bb' => 0,
                                     'rbis' => 2,
                                     'so' => 1
                                   },
          'BryceJones(2021)' => {
                            'hits' => 2,
                            'runs' => 2,
                            'atbats' => 4,
                            'bb' => 1,
                            'rbis' => 4,
                            'so' => 1
                          },
          'WillGrimes(2021)' => {
                                   'bb' => 0,
                                   'rbis' => 0,
                                   'so' => 1,
                                   'runs' => 1,
                                   'hits' => 2,
                                   'atbats' => 3
                                 },
};

我可以在我的 perl 代码中使用以下内容对哈希进行交互：

    foreach my $name (sort keys %season) {
        printf "%-27.27s", "$name: ";
        foreach my $stat (sort keys %{ $season{$name} }) {
            printf "%-12.12s", "$stat: $season{$name}{$stat} ";
         ## cal. avg
        $season{$name}{AVG} = $season{$name}{hits} / $season{$name}{atbats};
        }

   
    printf "%4s %.3f\n", "avg:", $season{$name}{AVG};
}

到目前为止，我为显示它所做的尝试似乎有些不合时宜。任何帮助将不胜感激。

 <table style="width:100%; line-height:40px;">   
        <% FOREACH Season = Season %>
        <tr>
          <td width="5">Season.key <% Season.key %></td> 
          <td width="5">Season.val <% Season.value %></td>
          <td width="5">Season.val.atbats <% Season.value.atbats %>
          <td width="5">Season.val.hits <% Season.value.hits %>  
        </tr>   
        <% END %>   
      </table>

最终在网页上显示的内容：

HASH(0xabd1ef4)HASH(0xabd1ef4)
Season.key  Season.val  Season.val.atbats   Season.val.hits

【问题讨论】：

您的问题没有说明您使用的模板“系统”。请阅读How to create a Minimal, Reproducible Example。
注意：你的哈希有玩家数量，但模板指的是seasons——看起来不匹配。
对不起，我不明白你所说的“模板系统”是什么意思。我正在使用 perl->Dancer2->模板工具包。如果您认为我应该包含更多内容，很高兴编辑问题。
看看你的问题，你有没有提到Dancer？如果没有提及，我们怎么知道您使用的是什么。编辑您的问题并输入您使用 Dancer 模板的前两句话。
与Dancer或Dancer2无关

标签： html perl template-toolkit

【解决方案1】：

FOREACH 遍历数组。遍历hash.keys返回的数组。

<% FOREACH id IN payload.keys %>
   <% season = payload.$id %>
   <p><% season.runs %></p>
   <p><% season.atbats %></p>
<% END %>

完整代码：

use Template qw( );

my %seasons = (
        'TylerMontgomery(2022)' => {
            'so' => 1,
            'bb' => 1,
            'rbis' => 0,
            'atbats' => 117,
            'runs' => 2,
            'hits' => 2
        },
        'ChaseLangan(2022)' => {
            'runs' => 4,
            'hits' => 24,
            'atbats' => 5,
            'bb' => 0,
            'rbis' => 2,
            'so' => 1
        },
        'BryceJones(2021)' => {
            'hits' => 2,
            'runs' => 2,
            'atbats' => 4,
            'bb' => 2,
            'rbis' => 4,
            'so' => 1
        },
);


my $tt = Template->new({
   START_TAG => '<%',
   END_TAG   => '%>',
});

my $template = <<'__EOS__';
<!DOCTYPE html>
<html lang="en">
  <head>
    <!-- head definitions go here -->
    <meta charset="utf-8">
  </head>
  <body>
    <div class="container" style="margin-top:20px;">
      <% FOREACH id IN seasons.keys %>
      <% season = seasons.$id %>
      <p><% season.runs %></p>
      <p><% season.atbats %></p>
      <% END %>
    </div>
  </body>
</html>
__EOS__

$tt->process(\$template, {
   title   => 'Get Softball Season Stats',
   seasons => \%seasons,
})
   or die($tt->error);

输出

<!DOCTYPE html>
<html lang="en">
  <head>
    <!-- head definitions go here -->
    <meta charset="utf-8">
  </head>
  <body>
    <div class="container" style="margin-top:20px;">


      <p>4</p>
      <p>5</p>


      <p>2</p>
      <p>117</p>


      <p>2</p>
      <p>4</p>

    </div>
  </body>
</html>

注意：请勿将season 用于集合和单个季节。我使用了更好的变量名称，你应该调整你的数据以匹配。

【讨论】：

非常感谢您的回复，但是当我尝试使用您上面的解决方案时，它只会打印出第一个玩家的名字——没有数据，也没有其他玩家。
id 是“名称”。我展示了如何使用它访问散列的元素。
Re“我向你保证，我发布的结果就是我得到的结果。”，我没有说别的。
终于想通了。 Dancer 默认使用 Template Simple 而不是 Template Toolkit。将 config.yml 中的配置更改为模板 Toolkit 并在我的应用中启用 TT 使一切正常
“唯一的标记是 INCLUDE、START、END 和 token”（虽然它是可扩展的），所以没有 FOREACH。是的，那不会接近工作 X_X