[Cascavel-pm] Sinal da subtracao

[Flavio S. Glock]

2008/12/18 Nelson Ferraz <nferraz em gmail.com>:
> 2008/12/18 Patty Silva <ptfzs em yahoo.com.br>:
>> Tem como eu retirar o sinal do resultado da subtracao??
>> Eu so quero saber a variacao, entao quero desconsiderar o sinal:
>> ex:
>>
>> 73 - 78 = -5   eu sei q variou 5
>> 6.6 - 7.4 = -0.8  eu sei q variou 0.8
>> 82 - 80 = 2.0 eu sei q variou 2
>>
>> Eu quero retirar o sinal de (-) do resultado!!
>>
>> Tem como ?? :D
>
> 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?

my ($x, $y) = sort ( 73, 78 );
print $y - $x;