Ver originales (Francés)

[perl] verificar si una variable es numérica

tlep -  
Hola,

estoy intentando en Perl verificar si una variable pasada como argumento de un script es numérica.

He probado con éxito:
if ($ARGV[2] =~ m/^\d+$/){print "Argument '".$ARGV[2]."' numérico.\n";}

En cambio, no logro usar el NOT (para obtener lo contrario):

if (!$ARGV[2] =~ m/^\d+$/){print "Argument '".$ARGV[2]."' no numérico.\n";}
=> no funciona po
if ($ARGV[2] !=~ m/^\d+$/){print "Argument '".$ARGV[2]."' no numérico.\n";}
=> no funciona po
if !($ARGV[2] =~ m/^\d+$/){print "Argument '".$ARGV[2]."' no numérico.\n";}
=> no funciona po

Gracias :-)
Configuración: Windows XP Firefox 2.0.0.11

7 respuestas

  1.  Char Snipeur Colaborador
    gracias por las precisiones.
    --
    ¡Saludo! antes creía, ahora estoy decidido.Jesucristo
    Char Snipeur
    0
    1. lami20j Moderador
      Para la info

      !~ no es exactamente una negación

      este operador quiere más bien decir encontrar la no coincidencia y no no encontrar la coincidencia
      --
      106485010510997108
      0
      1. lami20j Moderador
        otra posibilidad de probar lo no numérico es con la clase de caracteres complementada \D que busca los caracteres no numéricos 
        root@debian:~# perl -e 'print "non numérique\n" if ("aaa" =~ /^\D+$/)' non numérique
        así no necesito negar
        simplemente busco una correspondencia no numérica

        --
        106485010510997108
        0
        1. lami20j Moderador
          ou
           perl -e '"aaa"=~/^\d+$/?"":print "non numérique\n"'

          --
          106485010510997108
          0
          2. lami20j Moderador
            Hola,

            aquí van algunas pruebas
            root@debian:~# perl -e 'print "non numérique\n" if ("aaa" !~ /^\d+$/)' non numérique root@debian:~# perl -e 'print "non numérique\n" if (!("aaa" =~ /^\d+$/))' non numérique root@debian:~# perl -e 'print "non numérique\n" unless ("aaa" =~ /^\d+$/)' non numérique

            --
            106485010510997108
            0
            1. Char Snipeur Colaborador
              Hola.
              No entiendo por qué 
              if (!$ARGV[2] =~ m/^\d+$/){print "Argument '".$ARGV[2]."' non numérique.\n";}
              no funciona. ¿Es por la prioridad de operadores? ¿Funcionaría un 
              if (!($ARGV[2] =~ m/^\d+$/)){print "Argument '".$ARGV[2]."' non numérique.\n";}
              ? En caso contrario, ya no entiendo nada, el not sobre un booleano siempre debe funcionar normalmente.
              --
              Salud! antes yo creía, ahora estoy fijado.Jésus Christ
              Char Snipeur
              0
              1. b0rice
                Bonjour,

                la négation dans une regexp en perl, c'est: $chaine !~ m/$re/;

                Dans ton cas:

                print 'Argument '.$ARGV[2].' non numérique' if ($ARGV[2] !~ m/^\d+$/);

                Tu pouvais aussi faire:

                print "Argument ".$ARGV[2];
                if ( $ARGV[2] =~ m/^\d+$/ ) {
                print " numérique\n";
                }
                else {
                print " alphanumérique\n";
                }

                tout simplement ;)
                1