使用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 的变量中提取值。您尚未实例化名为“组件”的变量。请记住，如果您引用不存在的变量，正常情况下 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 %]