Discussion :

[kamouminator]

salut à tous,

j'ai ecris un petit script en perl pour verifier si ce qui est entré par l'utilisateur est un nombre ou non. Etant nouveau dans le monde du perl, je voulais savoir s'il n'y avais pas une meilleure facon de faire ?

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
#!/usr/bin/perl
use strict;
 
my $chaine=<>;
chomp $chaine;
if($chaine && $chaine =~ m/^[\+-]?[0-9]+\.?[0-9]*/ && $chaine !~m/[^0-9\+-\.]/  ){
 
   print("nombre\n");
 
}else{
 
 
        print"pas nombre !\n"
 
 
}

[Jasmine80]

Code :

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

$chaine !~m/[^0-9\+-\.]/

double négation = affirmation !~ et ^
de plus cette partie me semble inutile vu la condition qui la précède


J'écrirais

Code :

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

if((defined $chaine) && ($chaine =~ m/^[+-]?\d+(?:\.\d+)?/)){

\d équivaut à [0-9]
vu que le plus est entre crochet, il ne doit pas précéder d'un antislash
(?:\.\d+)? le point d'interrogation terminal s'applique au groupe entre parenthèses qui recherche 1 à 0 .chiffres (nombre entier vs nombre décimal)
?: permet de ne pas récupérer la valeur entre parenthèses

[kamouminator]

en fait j'utilise la double negation pour verifier qu'il n'y a pas de autre chose que des nombre un . et des signes dans lexpression

parceque 2A est considéré comme un nombre si on ne rajoute pas cette verification

[Jasmine80]

en fait j'utilise la double negation pour verifier qu'il n'y a pas de autre chose que des nombre un . et des signes dans lexpression

parceque 2A est considéré comme un nombre si on ne rajoute pas cette verification

Pour éviter les lettres, ajoute l'ancre de fin $

Code :

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

if((defined $chaine) && ($chaine =~ m/^[+-]?\d+(?:\.\d+)?$/)){

[Jasmine80]

en fait j'utilise la double negation pour verifier qu'il n'y a pas de autre chose que des nombre un . et des signes dans lexpression

Oui, tu avais raison de faire ainsi, $chaine !~ m/[^0-9\+-\.] est différent de $chaine =~ m/[0-9\+-\.] (j'ai failli dire des bêtises).
Néanmoins avec les ancres de début et de fin tu forces $chaîne à n'avoir que des chiffres et un point.

[kamouminator]

ok super merci !

[Jedai]

Je signale également que sauf à des fins pédagogiques, réinventer ce type de regex basiques est généralement inutile (sauf besoins très particuliers), il y a déjà Regexp::Common.

--
Jedaï