[Cascavel-pm] Arrendondamento

[Fernando]

Nilson Santos Figueiredo Junior escreveu:
> On 6/23/06, Igor Sutton Lopes <igor.sutton em gmail.com> wrote:
>   
>> Vixe :) Então a melhor alternativa é utilizar uma regex:
>>
>> perl -e '$a = "1,43634"; $a =~ s/^(\d+\,\d{2}).*$/$1/; print $a'
>>     
>
> Não sei se a melhor alternativa seja uma regex, mas é o que eu faria
> se eu não quisesse procurar muito. Mas deve ter algum módulo que
> encapsula isso.
>
> Minha tentativa que eu achei um pouco mais "bonitinha". ;-)
>
> $num =~ s/(?<=\.\d\d)\d+//;
>
> -Nilson Santos F. Jr.
> _______________________________________________
> Cascavel-pm mailing list
> Cascavel-pm em pm.org
> http://mail.pm.org/mailman/listinfo/cascavel-pm
>
>   
Uma melhorada:
perl -e '$a = "1.43634";print trunc($a, 2); sub
trunc(){return(int(shift()*($div=10**shift()))/$div)}'