<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 style><br></div><div style><font face="courier new, monospace">$array = [];</font></div><div style><font face="courier new, monospace">say scalar @$array; #retorna ZERO !</font></div>

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

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

<div style><font face="courier new, monospace">   # destrói menos !</font></div><div style><font face="courier new, monospace">}</font></div><div><br></div><div></code><br clear="all"><div><br></div><div><br></div>
<div style>
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 style><br></div><div style>É isto aí !</div><div style><br></div><div style>Abraços,</div><div style><br></div><div style>Solli Honorio</div><div><br></div>-- <br>"o animal satisfeito dorme". - Guimarães Rosa
</div></div>