perl - 使用 perl 模板工具包时出错

Question

我尝试使用模板工具包获取此数据，但无法获取。

$var1={
      'Object'=>[
                {
                 'Component'=>[
                               {
                                'type'=>'analog',
                                'name'=>'Temp',
                                'value'=>'23'
                                },
                                 {
                                'type'=>'digital',
                                'name'=>'Temp',
                                'value'=>'22'
                                },
                                 {
                                'type'=>'analog',
                                'name'=>'pressure',
                                'value'=>'23'
                                },
                                 {
                                'type'=>'analog',
                                'name'=>'humidity',
                                'value'=>'23'
                                }
                               ]
                             }
                            ],
                           };

我试过这样

[% FOREACH st IN Object %]
[% FOREACH st IN Object.Component %]
[% Component.type %][% Component.name %][% Component.value %]
[% END %]
[% END %]

我无法获取这些值，并且它没有给出任何错误，请帮助如何获取这些值。

Answer 1

将您的模板更改为：

[% FOREACH obj IN Object %]
[% FOREACH comp IN obj.Component %]
[% comp.type %] [% comp.name %] [% comp.value %]
[% END %]
[% END %]

Answer 2

你有两个st变量。我不记得确切的 TT 如何处理范围，但我怀疑这不是一件好事。您还尝试从名为 的变量中提取值Component。您还没有实例化一个名为 component 的变量。请记住，在正常情况下，如果您引用不存在的变量，TT 不会给您错误，它只是不输出任何内容。

如果你想改变它，所以你会得到一个错误，你需要设置STRICT配置选项。或者，设置调试选项之一：

my $template = Template->new(
    {
       STRICT => 1,      # or
       DEBUG => 'undef'
    });

尝试类似：

[% FOREACH obj in Object %]
    [% FOREACH item in obj.Component %]
      [% obj.type %] [% obj.name %] [% obj.value %]
    [% END %]
[% END %]