Vérifier q'une variable est numérique

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 :king:

Code:

---

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

Citation:

---

Envoyé par Bahan_auboulot

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:

---

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

---

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

Regexp::Common

Citation:

---

Envoyé par djibril

Regexp::Common

---

:D 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?

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 :D!

Merci beaucoup à vous tous de la réponse :yaisse2:, je remercie Jasmine et Bahan pour votre solution ainsi que Djibril pour son module que je vais regarder d'un peu plus près :king:.