[SP-pm] Alguém tem uma forma melhor de compara números reais ?

[thiagoglauco at ticursos.net]

Eu tenho o seguinte algoritmo para comparar números reais. Alguém tem uma
forma melhor, menor, mais legível ou um módulo?

# sao_iguais(NUM1, NUM2, PRECISAO) : Retorna "true" se os valores reais
forem #iguais dentro da precisão determinada.

sub sao_iguais {
my ($num1, $num2, $precisao) = @_;
return sprintf("%.${precisao}f", $num1) eq sprintf("%.${precisao}f", $num2);}