[SP-pm] Pegadinha do internals do Perl

[Solli Honorio]

Pessoal,

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.

O lance era o seguinte :

<code>

$array = [];
say scalar @$array; #retorna ZERO !
$alguma_coisa = ($array->[0]->{data} || time);
say scalar @$array; #retorna UM !

if ( scalar @$array ) {
   # destrói tudo !
} else {
   # destrói menos !
}

</code>


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.

É isto aí !

Abraços,

Solli Honorio

-- 
"o animal satisfeito dorme". - Guimarães Rosa
-------------- Pr?xima Parte ----------
Um anexo em HTML foi limpo...
URL: <http://mail.pm.org/pipermail/saopaulo-pm/attachments/20130314/1fb796d8/attachment.html>