[langage] [RegExp] Question d'expression régulière

Version imprimable

06/10/2003, 14h22
cloogy

[langage] [RegExp] Question d'expression régulière

Bonjour,
je débute en expression régulière et je souhaiterais savoir comment "matcher" une chaine qui contient tout sauf * suivit de *

Merci pour vos réponses :D

Code:

1
2
3
4
5
6
7
8
use strict;
 
my $ChaineInitiale = "tototititata*";
my $ChaineTrouvee = "";
 
if ($ChaineInitiale =~ /^(.[^*]*)\*/) {
    $ChaineTrouvee = $1;
}

07/10/2003, 07h04
cloogy

:?: Pourrais tu m'expliquer ton expression s'il te plait :) Je l'a comprend pas très bien.
Je ré-explique un peu:

"fksdj*kfdskf*fsdfjdsklf" est "matché"
"sqdfqsdfq" aussi
mais pas "dsfqdfjqsj**jhfdqjf"

Merci à tous ! :roll:
07/10/2003, 08h10
Arioch

Désolé pour hier et pour l'explication, je t'ai répondu à la va-vite car je me cassais du taf :wink:

En reprenant ma RegExp :
if ($ChaineInitiale =~ /^(.[^*]*)\*/)

^ -> recherche effectuée dès le début de la chaîne
(.[^*]*) -> recherche avec mémorisation (les parenthèses) d'un ou plusieurs caractères (ou zéro si non trouvé) n'étant pas un astérisque
\* -> suivi d'un astérisque (ici, on est obligé de mettre \ devant * car dans une regexp, * signifie "0 ou plusieurs caractères", or on recherche ici le caractère * en tant que tel)

C'est pas évident mais si on analyse mon blabla par une phrase, la regexp pourrait être ceci : recherche dès le début de la chaîne toute suite éventuelle de caractères n'étant pas *, suivie justement du caractère *. La chaîne trouvée (si trouvée) avant * est mémorisée et stockée dans la variable $1.

Je ne suis pas un pro des expressions régulières et celle-ci d'ailleurs n'est pas capable de matcher des chaînes du genre "toto*titi*tata*truc*pouet***titi".

Mais bon ... :D
07/10/2003, 10h50
D[r]eadLock
Je suis pas trop d'accord:
je redefini le pattern :
n'importe quoi different de * suivit de *, ce qui donne :
[^*] permet de matcher un caractere different de * ([] permet de definir un ensemble de caractere ([1A-Z] = {1,A,B,...Z}, et le ^ permet d'inverser la selection)
[^*]* permet de "compter" les caracteres de l'ensemble, on en autorise autant que l'on veut (0->+inf), s'il en faut au moins un, il faut mettre + ([^*]+)
[^*]*\* signifie enfin l'ensemble precedent suivit du caractere * (il est protege par \, car sinon c'est l'expression precedente valable de 0 a +inf de fois)

Ce qui donne:
Code:

1 2 3 if ($string =~ /[^*]*\*/) { print STDERR " J'ai trouve le pattern : n'importe quoi different de * suivit de *\n" }
Maintenant, en lisant tes exemples (notamment le coups des deux etoiles), ce que tu as dis n'est pas ce que tu recherche.

Je crois que ce que tu cherche est :
la chaine doit etre composee entierement du motif suivant : n'importe quoi different de * et non vide, suivit de *
Ce qui nous donne le pattern suivant,
[^*]+\* : n'importe quoi different de * et non vide suivit de *
il reste a voir si toute la chaine est constitue de ce motif, c'est-a-dire si ce motif peut-etre reperte (au moins 1 fois) du debut jusqu'a la fin:
^([^*]+\*)+$ : ^ permet de fixer le pattern au debut de la chaine, et $ a la fin, les parentheses servant a grouper le motif pour le + (et accessoirement a memoriser les motifs trouves).
Code:

1 2 3 if ($chaine =~ /^([^*]+\*)+$/) { print STDERR "pattern valide\n"; }
[edit]Quoique dans ce cas, le premier exemple n'est pas valable. Specifie correctement ce que tu veux matcher. Plus c'est clair dans ta tete, plus c'est simple a ecrire[/edit]
08/10/2003, 09h29
cloogy

Merci à tous pour vos explications ! je m'en suis sorti ... 8)