O problema é que você estava tentando dar um foreach em uma estrutura de hash/array codificada como JSON na resposta... sendo assim quando você dava o foreach, o mesmo não entendia aquela variável como sendo uma estrutura correspondente.<div>
<br></div><div>Tirando o json a coisa rolou porque assim vocês estava retornando de fato uma referencia de um hash/array validos.<br><div><br></div><div>[]'s<br clear="all"><b><br>Daniel Vinciguerra</b><br>
Web Solutions Architect and Co-Owner at Bivee<br><span style="font-family:arial,sans-serif;font-size:13px;border-collapse:collapse"><a href="http://github.com/dvinciguerra" style="color:rgb(28,81,168)" target="_blank">http://github.com/dvinciguerra</a></span><span style="font-family:arial,sans-serif;font-size:13px;border-collapse:collapse"><a href="http://github.com/dvinciguerra" style="color:rgb(28,81,168)" target="_blank"></a></span><br>
<br><br><div class="gmail_quote">2012/9/10 Jose Nilton <span dir="ltr"><<a href="mailto:jniltinho@gmail.com" target="_blank">jniltinho@gmail.com</a>></span><br><blockquote class="gmail_quote" style="margin:0 0 0 .8ex;border-left:1px #ccc solid;padding-left:1ex">
Alterei a linha $self->render(results => {json => $queue}); para:<br><br>$self->render(results => $queue);<br><br><br>E funcionou.<br><br><br><div class="gmail_quote">Em 10 de setembro de 2012 07:37, Renato Santos <span dir="ltr"><<a href="mailto:renato.cron@gmail.com" target="_blank">renato.cron@gmail.com</a>></span> escreveu:<div>
<div class="h5"><br>
<blockquote class="gmail_quote" style="margin:0 0 0 .8ex;border-left:1px #ccc solid;padding-left:1ex"><p>O erro não tá na declaração do results? Devia ser um array, não um hash. [{}, {},.. ] </p>
<div class="gmail_quote">Em 10/09/2012 07:25, "Lucas Moraes" <<a href="mailto:lucastiagodemoraes@gmail.com" target="_blank">lucastiagodemoraes@gmail.com</a>> escreveu:<div><div><br type="attribution">
<blockquote class="gmail_quote" style="margin:0 0 0 .8ex;border-left:1px #ccc solid;padding-left:1ex">
com foreach:<div><br></div><div>foreach my $key (keys %$results){</div><div>print $key;</div><div>}</div><div><br></div><div>e</div><div><br></div><div><div>foreach my $value (values %$results){</div><div>print $value;</div>
<div>}</div></div><div><br></div><div><a href="http://perldoc.perl.org/functions/keys.html" target="_blank">http://perldoc.perl.org/functions/keys.html</a></div><div><br></div><div><br><div class="gmail_quote">Em 8 de setembro de 2012 21:51, Jose Nilton <span dir="ltr"><<a href="mailto:jniltinho@gmail.com" target="_blank">jniltinho@gmail.com</a>></span> escreveu:<br>
<blockquote class="gmail_quote" style="margin:0 0 0 .8ex;border-left:1px #ccc solid;padding-left:1ex"><pre><br>Fiz assim,<br><br>while ( my ($key, $value) = each(%$results) ) {
print "$key => $value\n";
}</pre><br>Só aparece esse erro:<br>Using a hash as a reference is deprecated at (eval 242)<br><br><br><div class="gmail_quote">Em 8 de setembro de 2012 20:25, Jose Nilton <span dir="ltr"><<a href="mailto:jniltinho@gmail.com" target="_blank">jniltinho@gmail.com</a>></span> escreveu:<div>
<div><br>
<blockquote class="gmail_quote" style="margin:0 0 0 .8ex;border-left:1px #ccc solid;padding-left:1ex"><br>Meu templete:<br><br><!DOCTYPE html><br><html><br> <head><title>Queue results</title></head><br>
<body><br> % for my $result (@$results) {<br> <p><%= $result->{json} %></p><br>
% }<br> </body><br></html><br><br><br>Minha action no Mojo:<br><br>sub queue {<br> my $self = shift;<br> my $queue = $self->getQueue;<br> $self->render(results => {json => $queue});<br>
}<br><br><br>Erro:<br><pre><b>Not an ARRAY reference at template "example/queue2.html.ep" line 5, near " <p><%= $result->{json} %></p>".</b>
</pre>
<table><tbody><tr>
<td>1.</td>
<td>
<pre><span><!DOCTYPE html></span></pre>
</td>
</tr>
<tr>
<td>2.</td>
<td>
<pre><span><html></span></pre>
</td>
</tr>
<tr>
<td>3.</td>
<td>
<pre><span> </span><span><head><title></span><span>Queue results</span><span></title></head></span></pre>
</td>
</tr>
<tr>
<td>4.</td>
<td>
<pre><span> </span><span><body></span></pre>
</td>
</tr>
<tr>
<td>5.</td>
<td>
<pre><span> </span><span>%</span><span> </span><span>for</span><span> </span><span>my</span><span> $result </span><span>(</span><span>@$results</span><span>)</span><span> </span><span>{</span></pre>
</td>
</tr>
<tr>
<td>6.</td>
<td>
<pre><span> </span><span><p></span><span><%=</span><span> $result</span><span>->{</span><span>json</span><span>}</span><span> %></span><span></p></span></pre>
</td>
</tr>
<tr>
<td>7.</td>
<td>
<pre><span> </span><span>%</span><span> </span><span>}</span></pre>
</td>
</tr>
<tr>
<td>8.</td>
<td>
<pre><span> </span><span></body></span></pre>
</td>
</tr>
<tr>
<td>9.</td>
<td>
<pre><span></html></span></pre></td></tr></tbody></table><br><b>Stash</b><br><pre>{
'controller' => 'example',
'action' => 'queue2',
'results' => {
'json' => {
'<a href="http://pop.com.br" target="_blank">pop.com.br</a>' => 1,
'<a href="http://uol.com" target="_blank">uol.com</a>' => 3,
'<a href="http://yuol.com.br" target="_blank">yuol.com.br</a>' => 1,
'<a href="http://hotmael.com" target="_blank">hotmael.com</a>' => 2,
'<a href="http://hotmnail.com" target="_blank">hotmnail.com</a>' => 1,
'<a href="http://hotmai.com" target="_blank">hotmai.com</a>' => 2,
'<a href="http://gamail.com" target="_blank">gamail.com</a>' => 1,
'<a href="http://sodexo.com.br" target="_blank">sodexo.com.br</a>' => 2
}
}
}
</pre><br>Como eu faço esse mapeamento.<br><br>Obrigado, desculpe por essa dúvida.<span><font color="#888888"><br><br clear="all"><br>-- <br>..............................................................................<br>
<b>Com Deus todas as coisas são possíveis</b> ::: <a href="http://www.linuxpro.com.br" target="_blank">LinuxPro</a><br>
<br><i><font size="1">"A qualidade nunca se obtém por acaso; ela é sempre o resultado do esforço inteligente." (John Ruskin)<br>"A mente que se abre a uma nova ideia jamais volta ao seu tamanho original" (Albert Einstein)</font></i><br>
<br>
</font></span></blockquote></div></div></div><div><div><br><br clear="all"><br>-- <br>..............................................................................<br><b>Com Deus todas as coisas são possíveis</b> ::: <a href="http://www.linuxpro.com.br" target="_blank">LinuxPro</a><br>
<br><i><font size="1">"A qualidade nunca se obtém por acaso; ela é sempre o resultado do esforço inteligente." (John Ruskin)<br>"A mente que se abre a uma nova ideia jamais volta ao seu tamanho original" (Albert Einstein)</font></i><br>
<br>
</div></div><br>=begin disclaimer<br>
Sao Paulo Perl Mongers: <a href="http://sao-paulo.pm.org/" target="_blank">http://sao-paulo.pm.org/</a><br>
SaoPaulo-pm mailing list: <a href="mailto:SaoPaulo-pm@pm.org" target="_blank">SaoPaulo-pm@pm.org</a><br>
L<<a href="http://mail.pm.org/mailman/listinfo/saopaulo-pm" target="_blank">http://mail.pm.org/mailman/listinfo/saopaulo-pm</a>><br>
=end disclaimer<br>
<br></blockquote></div><br></div>
<br>=begin disclaimer<br>
Sao Paulo Perl Mongers: <a href="http://sao-paulo.pm.org/" target="_blank">http://sao-paulo.pm.org/</a><br>
SaoPaulo-pm mailing list: <a href="mailto:SaoPaulo-pm@pm.org" target="_blank">SaoPaulo-pm@pm.org</a><br>
L<<a href="http://mail.pm.org/mailman/listinfo/saopaulo-pm" target="_blank">http://mail.pm.org/mailman/listinfo/saopaulo-pm</a>><br>
=end disclaimer<br>
<br></blockquote></div></div></div>
<br>=begin disclaimer<br>
Sao Paulo Perl Mongers: <a href="http://sao-paulo.pm.org/" target="_blank">http://sao-paulo.pm.org/</a><br>
SaoPaulo-pm mailing list: <a href="mailto:SaoPaulo-pm@pm.org" target="_blank">SaoPaulo-pm@pm.org</a><br>
L<<a href="http://mail.pm.org/mailman/listinfo/saopaulo-pm" target="_blank">http://mail.pm.org/mailman/listinfo/saopaulo-pm</a>><br>
=end disclaimer<br>
<br></blockquote></div></div></div><div class="HOEnZb"><div class="h5"><br><br clear="all"><br>-- <br>..............................................................................<br><b>Com Deus todas as coisas são possíveis</b> ::: <a href="http://www.linuxpro.com.br" target="_blank">LinuxPro</a><br>
<br><i><font size="1">"A qualidade nunca se obtém por acaso; ela é sempre o resultado do esforço inteligente." (John Ruskin)<br>"A mente que se abre a uma nova ideia jamais volta ao seu tamanho original" (Albert Einstein)</font></i><br>
<br>
</div></div><br>=begin disclaimer<br>
Sao Paulo Perl Mongers: <a href="http://sao-paulo.pm.org/" target="_blank">http://sao-paulo.pm.org/</a><br>
SaoPaulo-pm mailing list: <a href="mailto:SaoPaulo-pm@pm.org">SaoPaulo-pm@pm.org</a><br>
L<<a href="http://mail.pm.org/mailman/listinfo/saopaulo-pm" target="_blank">http://mail.pm.org/mailman/listinfo/saopaulo-pm</a>><br>
=end disclaimer<br>
<br></blockquote></div><br></div></div>