Discussion :

[Arioch]

Bonjour !

Je teste, via le script ci-dessous, le contenu de deux variables par le biais d'expressions régulières. Le but de la manip est de s'assurer, dans le cadre d'un gros programme, que le contenu des deux variables correspond bien aux motifs indiqués dans les expressions régulières.

Voici 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
17
18
19
20
21
22
23
24
25
#!/usr/bin/perl -w
 
use strict;
 
my ($alpha, $num);
 
$alpha = "de";
$num = 10;
 
# test de valeur dans $alpha (doit être 'ab', 'bc', 'cd' ou 'de')
if (! $alpha || $alpha !~ /^ab|bc|cd|de$/) {
    print "\$alpha vide ou motif \"$alpha\" non trouvé\n";
} else {
    print "motif \"$alpha\" concorde, ok\n";
}
 
# test de valeur dans $num (doit être compris entre 1 et 10 inclus)
if (! $num || $num !~ /^1|2|3|4|5|6|7|8|9|10$/)
{
    print "\$num vide ou motif \"$num\" non trouvé\n";
}
else
{
    print "motif \"$num\" concorde, ok\n";
}

Tant que je donne comme valeurs des chaînes ou nombres correspondant aux motifs recherchés, ça fonctionne, le test des 2 if renvoie VRAI.

Maintenant, si j'indique 1000 dans $num, ça renvoie VRAI également
De plus, indiquer "abc" dans $alpha retourne VRAI également.

Quelqu'un a une idée sur la question ???

[fsapet]

la ca marche

il faut que tu mettes des [ ]

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
19
20
21
my ($alpha, $num);
 
$alpha = "abc";
$num = 1000;
 
# test de valeur dans $alpha (doit être 'ab', 'bc', 'cd' ou 'de')
if (! $alpha || $alpha !~ /^[ab|bc|cd|de]$/) {
    print "\$alpha vide ou motif \"$alpha\" non trouvé\n";
} else {
    print "motif \"$alpha\" concorde, ok\n";
}
 
# test de valeur dans $num (doit être compris entre 1 et 10 inclus)
if (! $num || $num !~ /^[1|2|3|4|5|6|7|8|9|10]$/)
{
    print "\$num vide ou motif \"$num\" non trouvé\n";
}
else
{
    print "motif \"$num\" concorde, ok\n";
}

[Ludo167]

pour ta regex /(\d){1,3}/ essaye ca pa le temps de tester desolé pour les chiffrees

Ludo

[Ludo167]

scuzzzzz j'avais mal lu

je regarde ton prog et je te donne une reponse tout de suite apres


Ludo

[Arioch]

Merci mais en fait, j'avais déjà essayé cette syntaxe que tu me donnes fsapet

Vois le résultat et admire surtout :

Code :

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

1
2
3
# avec $alpha = "ab" et $num = 10
$alpha vide ou motif "ab" non trouvé
$num vide ou motif "10" non trouvé

[Ludo167]

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
19
20
21
22
23
24
25
#!/usr/bin/perl -w
 
use strict;
 
my ($alpha, $num);
 
$alpha = "abc";
$num = 100;
 
# test de valeur dans $alpha (doit être 'ab', 'bc', 'cd' ou 'de')
if (! $alpha || $alpha !~ /^(ab|bc|cd|de){1}$/) {
    print "\$alpha vide ou motif \"$alpha\" non trouvé\n";
} else {
    print "motif \"$alpha\" concorde, ok\n";
}
 
# test de valeur dans $num (doit être compris entre 1 et 10 inclus)
if (! $num || $num !~ /^(1|2|3|4|5|6|7|8|9|10){1}$/)
{
    print "\$num vide ou motif \"$num\" non trouvé\n";
}
else
{
    print "motif \"$num\" concorde, ok\n";
}

et ca normalement c ok
regarde et dis moi
a plus et HAPPY perl

[Arioch]

Allez, encore plus fort ! Ne boudons pas notre plaisir...

Le code ci-dessous reprend les modifs apportées par fsapet MAIS les tests sont inversés :

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
19
20
21
22
23
24
25
26
27
28
29
30
31
#!/usr/bin/perl -w
 
use strict;
 
my ($alpha, $num);
 
$alpha = "ab";
$num = 10;
 
# test de valeur dans $alpha (doit être 'ab', 'bc', 'cd' ou 'de')
#if (! $alpha || $alpha !~ /^[ab|bc|cd|de]$/)
if ($alpha && $alpha =~ /^[ab|bc|cd|de]$/)
{
    print "motif \"$alpha\" concorde, ok\n";
 
}
else
{
    print "\$alpha vide ou motif \"$alpha\" non trouvé\n";
}
 
# test de valeur dans $num (doit être compris entre 1 et 10 inclus)
#if (! $num || $num !~ /^[1|2|3|4|5|6|7|8|9|10]$/)
if ($num && $num =~ /^[1|2|3|4|5|6|7|8|9|10]$/)
{
    print "motif \"$num\" concorde, ok\n";
}
else
{
    print "\$num vide ou motif \"$num\" non trouvé\n";    
}

Et voilà ce qui s'affiche en sortie :

Code :

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

1
2
$alpha vide ou motif "ab" non trouvé
$num vide ou motif "10" non trouvé

Je me fait vieux pour bosser du Perl ou bien ???

[Arioch]

et ca normalement c ok
regarde et dis moi
a plus et HAPPY perl

Merci Ludo167, ta méthode fonctionne

Par contre, je me demande pourquoi est-on obligé de mémoriser (dans $1) le contenu de ce que l'on cherche pour que celà fonctionne !

[Ludo167]

je sais po ce que tu veux en faire apres la recuperer ou autre dc c a toi de voir!!!!
Mais tu est po obliger !!!!

Content d'avoir pu t'aider

Bye

[Arioch]

Merci vous deux !

A noter qu'on peut se passer de {1}, ça marche aussi sans.

Allez zou, direction le tag "résolu"

[bulbo]

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
19
20
21
22
23
24
25
26
27
28
29
 
#!/usr/bin/perl -w
 
use strict;
 
my ($alpha, $num);
 
$alpha = "ab";
$num = 10;
 
# test de valeur dans $alpha (doit etre 'ab', 'bc', 'cd' ou 'de')
if (! $alpha || $alpha !~ /^[ab|bc|cd|de].$/)
{
    print "\$alpha vide ou motif \"$alpha\" non trouv   \n";
}
else
{
    print "motif \"$alpha\" concorde, ok\n";
}
 
# test de valeur dans $num (doit etre compris entre 1 et 10 inclus)
if (! $num || $num !~ /^[1|2|3|4|5|6|7|8|9|10].$/)
{
    print "\$num vide ou motif \"$num\" non trouv       \n";
}
else
{
    print "motif \"$num\" concorde, ok\n";
}

Tester et ca marche chez moi,

Bonne continuation..

EDIT: OK la version de Ludo fait la meme chose..

"." veut dire une seule occurence d'un des elements du groupe
{1} c'est la meme chose (on ne memorise rien dans $1)

Bulbo

[fsapet]

Merci mais en fait, j'avais déjà essayé cette syntaxe que tu me donnes fsapet

Vois le résultat et admire surtout :

Code :

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

1
2
3
# avec $alpha = "ab" et $num = 10
$alpha vide ou motif "ab" non trouvé
$num vide ou motif "10" non trouvé

gasp
desole

[Arioch]

gasp
desole

spa grave

Maintenant, je mettrai des ( ) partout dans mon code !!

[Ludo167]

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
# test de valeur dans $alpha (doit être 'ab', 'bc', 'cd' ou 'de')
if (! $alpha || $alpha !~ /^[ab|bc|cd|de]{1}$/) {
    print "\$alpha vide ou motif \"$alpha\" non trouvé\n";
} else {
    print "motif \"$alpha\" concorde, ok\n";
}
 
# test de valeur dans $num (doit être compris entre 1 et 10 inclus)
if (! $num || $num !~ /^[1|2|3|4|5|6|7|8|9|10]{1}$/)
{
    print "\$num vide ou motif \"$num\" non trouvé\n";
}
else

pour info
{1} veut dire reconait uniquement une seule fois!!! voilà

Bye Ludo

[Jedai]

Il me semble que si vous essayer par exemple 10 ou ab ça marche pas avec cette regex.... non ? ( [ et ] introduisent une classe de caractère, donc c'est pas bon du tout )

En fait je ne comprend pas la logique du procédé, ne vaudrait-il pas mieux procéder de façon positive :

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
19
20
21
22
23
24
25
26
 
#!/usr/bin/perl -w
 
use strict;
 
my ($alpha, $num);
 
$alpha = "de";
$num = 1000;
 
# test de valeur dans $alpha (doit être 'ab', 'bc', 'cd' ou 'de')
unless ( $alpha =~ /^(?:ab|bc|cd|de)$/) {
    print "\$alpha vide ou motif \"$alpha\" non trouvé\n";
} else {
    print "motif \"$alpha\" concorde, ok\n";
}
 
# test de valeur dans $num (doit être compris entre 1 et 10 inclus)
unless ( $num =~ /^(?:1|2|3|4|5|6|7|8|9|10)$/)
{
    print "\$num vide ou motif \"$num\" non trouvé\n";
}
else
{
    print "motif \"$num\" concorde, ok\n";
}

Là ça marche !

--
Jedaï

[Arioch]

Le pattern /^(1|2|3|4|5|6|7|8|9|10)$/ fonctionne parfaitement.

Je retrouve bien mes petits dorénavant. Enfin, le bidulemuche que je cherche

[Jedai]

Mon pattern fait exactement la même chose, sauf qu'avec (?: ) tu as l'effet groupant des parenthèses sans l'effet capturant, autrement dit, la regex ne se fatigue pas à stocker des informations que tu n'utiliseras pas plus tard. Ca peut-être utile pour optimiser une regex.

--
Jedaï

[Arioch]

Jedai, tu sais que tu m'énerves là ?