Discussion :

[Kishin]

Bonjour tout le monde,

Je cherche une fonction pour vérifier qu'une variable est un entier pour PERL.
(en PHP is-numeric() ) ?

Merci d'avance

[Bahan_auboulot]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
sub EstNumerique
{
   my ($inputVariable) = @_;
   my $crFonction = 0;
 
   if ($inputVariable =~ /^\-?[0-9]+\,?[0-9]*$/)
   {
      # OK, variable numerique
      $crFonction = 1;
   }
   else
   {
      # KO, variable non-numerique
      $crFonction = 0;
   }
 
   return $crFonction;
}

Ca ne marcherait pas un truc dans le genre ?


Cdt.

Bahan

[Jasmine80]

if ($inputVariable =~ /^\-?[0-9]+\,?[0-9]*$/)[/code]Ca ne marcherait pas un truc dans le genre ?

Oui ça marchera à condition que ce soit bien la virgule qui soit utilisée et non le point. Juste une remarque, [0-9] peut être simplifié par \d.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

if ($input_var =~ m/^-?\d+,?\d*$/)

Il y a également des modules permettant cette vérification et bien plus.

[djibril]

Regexp::Common

[Jasmine80]

Regexp::Common

oui, c'est à lui que je pensais, mais je ne revenais plus sur son nom, je n'ai jamais dû l'utiliser. Djibril penses-tu que dans ce cas-ci qu'il soit intéressant d'utiliser ce module?

[djibril]

Tu es au moins sûr que la regex est robuste.
Sinon il est toujours possible de choper la regex dans le code du module, mais attention à vos yeux !