我正在努力解决一个错误，我无法确定。
我有一个函数，它接受邮政编码，进行查找，并返回纬度，经度和区域名称。
例如，传递它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（视图的一部分）中获取的。
那么，任何想法可能会发生什么或从哪里开始？我可以做些什么来尝试进一步调试？我没有想法。
答案 0 :(得分：0)
也许是因为$ 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。
答案 1 :(得分：0)
我发现问题在其他开发服务器和生产服务器上消失了。
因此我尝试卸载并重新安装TT，但这没有帮助。
因为它看起来是我的开发服务器上的一个环境问题，所以我正在退休并开始一个新的。