[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