Question

我正在努力解决一个错误，我无法确定。

我有一个函数，它接受邮政编码，进行查找，并返回纬度，经度和区域名称。

例如，传递它AD300它返回（类似于）42.6,1.55，ordino - 它运作良好。

该函数的调用如下：

my ($lat, $lng, $area) = $object->release();

返回值很好，我可以使用警告

在perl中打印它们

warn "Area $area, $rellat, $rellng";

这很好用。 “Area Ordino，42.6,1.55”

然后我取其中一个值，比如$ area，将它添加到数据哈希中，并将其传递到一个网页，在那里通过TT预处理（因为我成功地加载了其他变量）。 / p>

我正在以正常方式将值分配给哈希。例如 $ hash-＆gt; {'area'} = $ area;

这是有趣的开始。当我尝试在TT中引用该值时，例如[％hash.area％] 我没有在网页上打印“Ordino”，我被告知我已经通过了对TT的数组引用。

经过一些调试后，我发现我的哈希变量hash.area以某种方式引用了一个数组（根据TT），它保存了我从子程序“release”返回的三个值。即 hash.area = [42.6,1.55，ordino]根据TT。

也就是说，要在网页中获取值“Ordino”，我必须访问[％hash.area.2％]。

此外，我可以将$ hash-＆gt; {'area'}设置为等于任何变量$ lat，$ lng或$ area并获得相同的行为。 TT认为所有三个变量都引用相同的数组。

根据TT

$ lat = $ lng = $ area = [42.6,1.55，ordino]

这很奇怪，我可以愉快地在perl中打印变量，它们看起来很正常 - 不是数组。我试过用dumper转储哈希，没有数组，一切都很好。然而不知何故，TT正在寻找阵列。它正在努力。

该网站非常庞大，页面很多，我很乐意通过TT将变量和哈希值一直传递给网页，现在已经有4年了。我从来没有见过这个。在其他页面上，我甚至从“发布”方法传递完全相同的输出，并且它被正确处理。

我不认为我的TT处理代码是问题，但以下是相关的。

my $tt = Template->new({
    INCLUDE_PATH => [ @$template_directories ],
    COMPILE_EXT => '.ttc',
    COMPILE_DIR => '/tmp/ttc',
    FILTERS => YMGN::View->filters,
    PLUGIN_BASE => [ 'YMGN::V::TT::Plugins' ],
    EVAL_PERL => 1
});

$self->{tt} = $tt;
$self->{template_directories} = $template_directories;
$self->{output} = $params->{output} || undef;
$self->{data} = $params->{data} || [];

上面创建了一个新的tt对象，它是“new”函数的一部分（在下面重新编写）。 “data”包含哈希值。 “output”保存已处理的模板，以便发送给用户浏览器。我们调用new（上面），处理数据并使用下面的代码创建输出。

sub process {
my $self = shift;
my $params = shift;

if (!ref $self || !exists $self->{tt}) {
    my $class = $self;
    $self = $class->new($params);
}

if (!$self->{output}) {
    die "You need to specify output";
}

delete $self->{error};

$self->y->utils->untaint(\$self->{template});
my $rv = $self->{tt}->process(
    $self->{template},
    $self->{data},
    $self->{output},
    binmode => ':utf8',
);

if (!$rv) {
    warn $self->{tt}->error();
    return {
        error => $self->{tt}->error(),
    };
}
return 0;
}

上述所有内容都已消毒，因为还有很多其他内容正在进行中。我认为重要的是进入的数据看起来是正确的，这里是tt处理的完整数据的完整转储（在处理时）。造成问题的原因是bubbles-＆gt; [*] - ＆gt; {'release'}（请注意，数据中的release ==区域。名称因无关原因而更改）。如你所见，dumper认为它是一个字符串。 TT处理其他一切都很好。

data $VAR1 = {
      'system' => {
                    system stuff
                  },
      'features' => {
                      site feature config
                    },
      'message_count' => '0',
      'bubbles' => [
                     bless( {
                              'history' => [
                                             {
                                               'creator' => '73',
                                               'points' => '10',
                                               'screenname' => 'sarah10',
                                               'classname' => 'Flootit::M::Bubbles',
                                               'id' => '1378',
                                               'updated' => '1352050471',
                                               'type' => 'teleport',
                                               'label' => 'teleport',
                                               'class' => 'Flootit::M::Bubbles'
                                             }
                                          ],
                              'creator' => '6',
                              'release' => 'Escaldes-Engordany',
                              'image' => 'http://six.flooting.com/files/833/7888.png',
                              'pop_time' => '1352050644',
                              'y' => $VAR1->{'y'},
                              'taken_by' => '0',
                              'city' => '3',
                              'title' => 'hey a new bubble',
                              'id' => '566',
                              'class' => 'Flootit::M::Bubbles',
                              'prize' => 'go for it kids'
                            }, 'Flootit::M::Bubbles' ),
                     bless( {
                              'history' => [
                                             {
                                               'creator' => '6',
                                               'points' => '10',
                                               'screenname' => 'sarah20',
                                               'classname' => 'Flootit::M::Bubbles',
                                               'id' => '1723',
                                               'updated' => '1349548017',
                                               'type' => 'teleport',
                                               'label' => 'teleport',
                                               'class' => 'Flootit::M::Bubbles'
                                             },
                                             {
                                               'creator' => '6',
                                               'points' => '5',
                                               'screenname' => 'sarah20',
                                               'classname' => 'Flootit::M::Bubbles',
                                               'id' => '1732',
                                               'updated' => '1349547952',
                                               'type' => 'blow',
                                               'label' => 'blow',
                                               'class' => 'Flootit::M::Bubbles'
                                             }
                                           ],
                              'creator' => '89',
                              'release' => 'Ordino',
                              'image' => 'http://six.flooting.com/files/1651/8035.png',
                              'pop_time' => '1351203843',
                              'y' => $VAR1->{'y'},
                              'taken_by' => '0',
                              'city' => '3',
                              'title' => 'test4',
                              'id' => '1780',
                              'class' => 'Flootit::M::Bubbles',
                              'prize' => 'asdfasdf dsadsasdfasdfasdf'
                            }, 'Flootit::M::Bubbles' ),
                     bless( {
                              'history' => [],
                              'creator' => '6',
                              'release' => 'Andorra la Vella',
                              'image' => 'http://six.flooting.com/files/1671/8042.png',
                              'pop_time' => '0',
                              'y' => $VAR1->{'y'},
                              'taken_by' => '0',
                              'city' => '3',
                              'title' => 'Pretty flowers, tres joli',
                              'id' => '1797',
                              'class' => 'Flootit::M::Bubbles',
                              'prize' => 'With lots of pretty pictures'
                            }, 'Flootit::M::Bubbles' ),
                     bless( {
                              'history' => [],
                              'creator' => '6',
                              'release' => 'Hillrise Ward',
                              'image' => 'http://six.flooting.com/files/1509/8003.png',
                              'pop_time' => '0',
                              'y' => $VAR1->{'y'},
                              'taken_by' => '0',
                              'city' => '3',
                              'title' => 'Test beats',
                              'id' => '1546',
                              'class' => 'Flootit::M::Bubbles',
                              'prize' => 'Sound great'
                            }, 'Flootit::M::Bubbles' )
                   ]
    };

处理后出现的是（$ output）有一个 [％FOREACH floot IN bubbles％]

在[％floot.release％]

中浮动ARRAY（0xfaf5d448）。

如果我们制作这个[％floot.release.2％]，它会给出正确的值。

可以正确引用所有其他字段 - 参见图。

将“气泡”放在一起的代码是;

my $bubbles = $y->model('Bubbles')->search(['type' => 'golden', 'image' => '!NULL',
                                            'bubble_prizes' => ['p', { 'p.bubble' => 'self.id'}], ], {
    order_by => '(created>CURRENT_DATE() AND thumbsup+thumbsdown<10) DESC, COALESCE(thumbsup,0)-COALESCE(thumbsdown,0) DESC, pop_time DESC',
    count => 10,
    fields => ['p.title as title', 'p.prize as prize', 'city', 'taken_by', 'pop_time', 'id', 'creator'],
});

for (my $i=0; $i<@$bubbles; $i++) {

    # Find specified bubbles (see below for when not found here)
        my ($rellat, $rellng, $area) = $bubbles->[$i]->release() ;
    $bubbles->[$i]->{'release'} = $area;
}
}

然后控制器获取$ bubble，将其与会话/站点数据捆绑在一起，将其放入匿名哈希（如上面的数据中所示）并将其传递给视图进行处理。

发布的代码是：

sub release {
    my $self = shift;
    my $postcode = $self->y->model('Prizes')->find({bubble => $self->id})->postcode;
    my ( $user_lat, $user_long, $region_name );
    if($postcode)
     {
           ( $user_lat, $user_long, $region_name ) = $self->y->api('Location')->from_postcode($postcode);
           return ( $user_lat, $user_long, $region_name );  
        }
   }

API ::位置非常大，但相关的行是;

$postcode_record = $self->y->model('GeoData')->find( {
source   => "ALL_COUNTRIES_POSTCODES",
country  => $country_code,
sourceid => $postcode, } );

return ( $postcode_record->latitude, $postcode_record->longitude, $postcode_record->town );

我展示的数据转储是从TT.pm（视图的一部分）中获取的。

那么，任何想法可能会发生什么或从哪里开始？我可以做些什么来尝试进一步调试？我没有想法。

Answer 1

也许是因为$ area是一个受祝福的对象;尝试将其转换为标量字符串：

$string = ''.$area;
# e.g.
$hash->{'area'} = ''.$area;

关注@Moritz评论，检查$ area是否幸运：

print ref($area);
use Data::Dumper; warn Dumper($area);

q {“”}重载：

print defined ${ref($area).'::'}{'(""'};

修改

子发布可以返回 - 如果$ postcode评估为false，则为undef - 列表，但因为它在标量上下文中使用，返回最后一个参数$ region_name，如括号列表（逗号表达式）

sub release {
  my $self = shift;
  my $postcode = $self->y->model('Prizes')->find({bubble => $self->id})->postcode;
  my ( $user_lat, $user_long, $region_name );
  if($postcode)
  {
    ( $user_lat, $user_long, $region_name ) = $self->y->api('Location')->from_postcode($postcode);
    return ( $user_lat, $user_long, $region_name );  
  }
}

与Dump $ region_name或$ area相关，或者查看from_postcode。

Answer 2

我发现问题在其他开发服务器和生产服务器上消失了。

因此我尝试卸载并重新安装TT，但这没有帮助。

因为它看起来是我的开发服务器上的一个环境问题，所以我正在退休并开始一个新的。

访问模板工具包中的变量的奇怪bug

2 个答案: