Discussion :

[jlp65]

Bonjour,
Une question a priori toute simple, de la part d'un débutant Perl (en expressions régulières Perl, plus précisément !)
Je souhaiterais contrôler le bon format des numéros de téléphone (10 chiffres et rien que 10 chiffres) dans une table SAS. J'utilise l'expression régulière suivante :

Code :

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

"/^\d{10}$/"

et SAS me retourne un résultat 'OK' pour un no comportant plus de 10 chiffres.
Merci pour vos réponses

[6ril23]

si je comprends bien, en faisant

Code :

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

1
2
my $chaine = 12345678901;
print "OK\n" if ($chaine =~ /\d{10}/);

tu obtients "OK"

ça me parait plutôt bizarre la seule chose que j'ai envie de te demander même si ça peut paraître évident tu n'aurais pas mis "!~" au lieu de "=~"?
et pour les numéros à 10 chiffres tu obtiens quoi? "OK" aussi?

Pourrais-tu mettre un exemple et éventuellement un bout de code afin de pouvoir regarder

[ggnore]

Bonjour,
Une question a priori toute simple, de la part d'un débutant Perl (en expressions régulières Perl, plus précisément !)
Je souhaiterais contrôler le bon format des numéros de téléphone (10 chiffres et rien que 10 chiffres) dans une table SAS. J'utilise l'expression régulière suivante :

Code :

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

"/^\d{10}$/"

et SAS me retourne un résultat 'OK' pour un no comportant plus de 10 chiffres.
Merci pour vos réponses

Si tu mets $ entre guillemets, il y a des fortes chances que le $ soit interprété comme une variable, et donc perde son sens dans l'expression régulière.
évite de mettre les slashs dans le pattern aussi.

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
 
#!/usr/bin/perl
 
my $pattern = '/^\d{10}$/';
my $pattern2 = '^\d{10}$';
my $pattern3 = "^\\d{10}\$";
 
my @test = ( '0123456789', 'A0123456789A', '01234567890' );
 
foreach my $check (@test){
        printf "1 - $check:ok\n" if ($check =~ $pattern);
        printf "2 - $check:ok\n" if ($check =~ /$pattern2/);
        printf "3 - $check:ok\n" if ($check =~ /$pattern3/);
}

Le script renvoie :

2 - 0123456789:ok
3 - 0123456789:ok

[jlp65]

En fait, j'ai évité de mettre du code puisque je suis en SAS et pas en Perl. Mais voici quand même, donc, le code :

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
 
data phone_numbers;
	length first last phone $ 16;
	input first last phone & $16.;
	datalines;
	Thomas Archer 0123456789
	dudule Moins 0123
	Lucy Barr 0123456789
	Tom Joad A123456789
	Laurie Gil 0123456789542
;
data invalid;
	set phone_numbers;
	where not prxmatch	('/^\d{10}$/',phone);
run; 
proc print;run;

J'ai testé avec les 3 patterns et, à chaque fois, cela ne me sort pas les mauvais numéros. En fait, maintenant, SAS me retourne l'ensemble des enregistrements !! J'y perds un peu mon latin, là !

[jlp65]

Si j'enlève le "$" et le "^", il m'en signale 2 comme inexacts : Dudule et Tom ... mais pas Laurie !

J'ai testé avec les 3 patterns et, à chaque fois, cela ne me sort pas les mauvais numéros. En fait, maintenant, SAS me retourne l'ensemble des enregistrements !! J'y perds un peu mon latin, là !

[Gardyen]

as-tu un moyen de savoir quelle chaîne de caractères tu testes ?
j'ai l'impression que tu testes sur toute ta ligne à chaque fois, et pas juste le numéro

avec '/^\d{10}$/', toutes les lignes sont retournées puisque aucune n'est constituée uniquement d'un nombre à 10 chiffres (le nom fait partie de la ligne ? des espaces qui traînent ?)
et avec '/\d{10}/' cela te retourne toutes les lignes où il n'y a pas un nombre à au moins 10 chiffres, donc dudule et tom.

au lieu des limites de ligne ^$, essaie d'utiliser le word boundary \b:
/\b\d{10}\b/
pour voir ?

[jlp65]

La chaine considérée est bien celle concernant le téléphone uniquement (2e argument de la fonction prxmatch).
Avec les word boundary, je retrouve tout mon petit monde (Laurie comprise).

(je pensais que {10} signifiait 10 fois exactement, c'est ce que j'ai lu quelque part)

Merci beaucoup !

[Lolo78]

(je pensais que {10} signifiait 10 fois exactement, c'est ce que j'ai lu quelque part)

Oui, c'est ce que ça veut dire. Mais si tu as 12 chiffres, le moteur de regex va reconnaître exactement les 10 premiers et sera content.

Si tu veux regrouper un groupe de 10 chiffres et seulement 10 chiffres, il faut dire au moteur de regex que tu veux 10 chiffres et qu'en outre ce qu'il y a avant et après ces 10 chiffres ne soient pas des chiffres. Ce que tu as fait, apparemment, avec les word boundaries.

[Lolo78]

si je comprends bien, en faisant

Code :

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

1
2
my $chaine = 12345678901;
print "OK\n" if ($chaine =~ /\d{10}/);

tu obtients "OK"

ça me parait plutôt bizarre

Bien sûr que si tu fais cela, ça va marcher. Perl va reconnaître 10 chiffres, comme dans l'exemple ci-dessous à la ligne de commande:

Code :

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

1
2
3
 
$ perl -e 'print "OK\n" if "12345678912345678" =~ /\d{10}/;'
OK

Mais si tu ajoutes des ancres de début de de fin, alors là tu n'auras pas OK:

Code :

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

1
2
 
$ perl -e 'print "OK\n" if "12345678912345678" =~ /^\d{10}$/;'

De même avec des ancres de limite de mot:

Code :

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

$ perl -e 'print "OK\n" if "12345678912345678" =~ /\b\d{10}\b/;'