Foro - Perl en Español

Estimados,

Estoy presentando problema al comparar valores numéricos que estoy sacando de una BD.

Cuando hago la consulta sql y me trae un valor, como 1,222200, la aplicación funciona bien; realiza la comparación y entra en el if ($var > 0).

Pero hay ocasiones en que la base de datos me trae los siguientes valores: ,22220.

En estos casos la aplicación hace mal la comparación ya que entra en el if == 0 y arroja un mensaje crítico, siendo que ,222220 no es igual a 0.

Adjunto script,

Desde ya agradezco la ayuda.

Si los números que recibes tienen una coma, en lugar de un punto decimal, ahí sí que veo el problema, ya que Perl, por defecto, entiende los números decimales solo con el punto decimal, ya que sigue la localización numérica anglosajona.

Para resolver tu problema, te vale con cambiar la línea siguiente:


(Seguro que hay otras maneras, como por ejemplo, $var = 0+"0$valor"; -no probado en todos los casos-)

Estimado,

Gracias, fue de mucha utilidad tu respuesta.

Saludos