Foro - Perl en Español

por **animal collective** » 2012-02-07 09:42 @446

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.

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

#! /usr/bin/perl
 
$valor=`/usr/local/bin/sqlplus -u user/pass\@tnsname  -S -i \@\\/consulta.sql`;
$var= $valor + 0;
 
 
if($var == 0)
{
 
   print (“CRITICAL”);
 
else
{
 if($var > 0)
 {
  print (“OK”);
 }
}
 
Coloreado en 0.003 segundos,  usando GeSHi 1.0.8.4

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:

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

$valor =~ s/,/./; $var = 0 + $valor;
Coloreado en 0.001 segundos,  usando GeSHi 1.0.8.4

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

por **animal collective** » 2012-02-07 13:18 @596

Estimado,

Gracias, fue de mucha utilidad tu respuesta.

Saludos

Foro - Perl en Español

Problema con números decimales

Problema con números decimales

Publicidad

Re: Problema con números decimales

Re: Problema con números decimales

¿Quién está conectado?