<div dir="ltr">Só para o conhecimento de vocês, alterei o código de :<div><br></div><div><span style="font-family:'courier new',monospace;font-size:13px">$alguma_coisa = ($array->[0]->{data} || time);</span><br>

</div><div><span style="font-family:'courier new',monospace;font-size:13px"><br></span></div><div style>... para ..<span style="font-family:'courier new',monospace;font-size:13px"><br></span></div><div><span style="font-family:'courier new',monospace;font-size:13px"><br>

</span></div><div style><span style="font-family:'courier new',monospace;font-size:13px">$alguma_coisa = scalar @$array ? $array->[0]->{data} : time;</span><br></div><div style><span style="font-family:'courier new',monospace;font-size:13px"><br>

</span></div><div style>Não tenho certeza se é a melhor opção, mas depois de comer um monte de tempo nisto, foi a mais rápida que veio a minha cabeça.<br></div></div><div class="gmail_extra"><br><br><div class="gmail_quote">

Em 14 de março de 2013 20:51, Solli Honorio <span dir="ltr"><<a href="mailto:shonorio@gmail.com" target="_blank">shonorio@gmail.com</a>></span> escreveu:<br><blockquote class="gmail_quote" style="margin:0 0 0 .8ex;border-left:1px #ccc solid;padding-left:1ex">

<div dir="ltr">Pessoal, <div><br></div><div>Hoje passei uma parte do dia tentando descobrir porquê a minha lógica não estava funcionando, e no final descobri que era uma pegadinha do internals do Perl.</div><div><br></div>


<div>O lance era o seguinte : </div><div><br></div><div><code></div><div><br></div><div><font face="courier new, monospace">$array = [];</font></div><div><font face="courier new, monospace">say scalar @$array; #retorna ZERO !</font></div>


<div><font face="courier new, monospace">$alguma_coisa = ($array->[0]->{data} || time);</font></div><div><font face="courier new, monospace">say scalar @$array; #retorna UM !</font></div><div><font face="courier new, monospace"><br>


</font></div><div><font face="courier new, monospace">if ( scalar @$array ) {</font></div><div><font face="courier new, monospace">   # destrói tudo !</font></div><div><font face="courier new, monospace">} else {</font></div>


<div><font face="courier new, monospace">   # destrói menos !</font></div><div><font face="courier new, monospace">}</font></div><div><br></div><div></code><br clear="all"><div><br></div><div><br></div><div>
Este era o meu poblema, eu achei que se não existisse o elemento no array, eu poderia continua a minha vidinha, afinal mesmo fazendo um Data::Printer::p o array sempre volta empty. Mas o contador de elementos dele altera, ferrando toda a minha lógica depois.</div>


<div><br></div><div>É isto aí !</div><div><br></div><div>Abraços,</div><div><br></div><div>Solli Honorio</div><span class="HOEnZb"><font color="#888888"><div><br></div>-- <br>"o animal satisfeito dorme". - Guimarães Rosa
</font></span></div></div>
</blockquote></div><br><br clear="all"><div><br></div>-- <br>"o animal satisfeito dorme". - Guimarães Rosa
</div>