[Cascavel-pm] Sinal da subtracao

Eden Cardim edencardim em gmail.com
Quinta Dezembro 18 06:57:50 PST 2008


2008/12/18 Nelson Ferraz <nferraz em gmail.com>:
> Puxa, que bom que você perguntou!!!
>
> Eu estava com esta dúvida há muito tempo, e depois de muito pesquisar
> (acredita que não há nenhum módulo no CPAN que faca isso???), eu
> cheguei a esta solucão:
>
> 1) use reverse() para inverter o número
> 2) aplique uma expressão regular para substituir o sinal de menos por "\n"
> 3) use o chomp() para remover o "\n" (se houver)
> 4) use reverse() novamente para obter a parte positiva do número.
>
> Alguém conhece uma solucão melhor?

Não entedi porque todo esse malabarismo. Tem 2 soluções bem simples
que imaginei agora, sem usar abs():

$_ = -$_ if $_ < 0;

s/^-//;

-- 
   Eden Cardim       Need help with your Catalyst or DBIx::Class project?
  Code Monkey                    http://www.shadowcat.co.uk/catalyst/
 Shadowcat Systems Ltd.  Want a managed development or deployment platform?
http://edenc.vox.com/            http://www.shadowcat.co.uk/servers/


Mais detalhes sobre a lista de discussão Cascavel-pm