Discussion :

[unameno]

Bonjour,
je cherche le ou les mot(s) (0,1 ou 2) avant un mot défini contenu dans une variable. Les mots recherchés sont entre soit une virgule, soit le début de chaine ^, soit un mot clé "join" et donc la variable.

ma regexp est donc

Code :

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

m/(\bjoin\b|^|,) (.*?) \b* $table \b/xi

le problème et que celle ci ne matche rien alors que si je laisse la seule alternative du join (pour mon test d'execution) le mot est bien retourné.

je ne comprends pas d'ou vient l'erreur
merci pour votre aide

[Schmorgluck]

le \b* est fort étrange. Comment pourrait-il y avoir plusieurs limites de mots d'affilée ? Et d'ailleurs, mettre un quantificateur à une ancre, est-ce bien valide ?

[PerlPicker]

Bonjour,

Ta regex fonctionne quand je la teste. Il faut faire attention à récupérer le résultat dans $2 car tes premières parenthèses capturent join ou rien (début de chaine) dans $1.

Quelques petites améliorations possibles:

Code :

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

1
2
3
4
5
 
my $chaine="join mot1 mot2 limit"; 
my $table="limit";
 
print "=> $1\n" if ($chaine =~ m/(?:\bjoin\b|,|^) \s* ( (?:\w+\s+){0,1} \w+) \s+ $table \b/xi);

• Utilise des parenthèses non capturantes (?: ...) pour grouper

• Capture un ou 2 mots en utilisant \w+ (à voir si ça convient dans ta syntaxe)

Bonne journée

[unameno]

Pour le \b* j'ai un warning qui s'affiche, mais je ne sais pas si dans le cas ou j'ai plusiers blancqs par exemple \b m'en prend qu'un ou plusieurs (sur ce que j'ai vu su la doc il me semble que ca matche tout caractère différent de a-z, 0-9 ou _.

je ne comprend pas ca ne marche toujours pas chez moi, ni l'expression initiale, ni l'expression optimisée ...

la chaine en entrée est : table2 TB2 INNER JOIN table1 TPS1 ON TPS1.DAT = TB2.DTCREA LEFT JOIN table3 TPS2 ON TPS2.DAT = TB2.DTSOL

la table recherchée est : tps1

je recherche donc le nom de la table a partir de l'alias.

les expressions ne me retournent rien, ni en $1 ni en $2...

si quelqu'un a une explication...

[unameno]

je pense avoir trouvé d'ou vient l'erreur : la chaine en entrée est la chaine en entrée est : domaine1.table2 TB2 INNER JOIN domaine1.table1 TPS1 ON TPS1.DAT = TB2.DTCREA LEFT JOIN domaine1.table3 TPS2 ON TPS2.DAT = TB2.DTSOL

et c'est ce '.' qui fait que ca ne renvoit rien ...

[unameno]

Je n'arrive pas a trouver mon expression régulière qui me renverrais la plus courte chaine entre la premiere occurrence trouvée de $table et soit '\bjoin\b' soit ',' soit '^'
est-ce que quelqu'un peut m'aider ?
merci d'avance

[PerlPicker]

Voila en remplaçant \w par \S. J'ai ajouté la contrainte d'avoir un espace après la table pour ne pas la confondre avec un alias.

Code :

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

1
2
3
4
my $chaine="domaine1.table2 TB2 INNER JOIN domaine1.table1 TPS1 ON TPS1.DAT = TB2.DTCREA LEFT JOIN domaine1.table3 TPS2 ON TPS2.DAT = TB2.DTSOL"; 
my $table="tps1";
 
print "=>$1<=\n" if ("$chaine " =~ m/.*(?:\bjoin\b|,|^) \s* ((?:\S+\s*?)+) \s+ $table \s/xi);

[unameno]

Merci !!
j'avais pas pensé au \S !

[Schmorgluck]

Pour le \b* j'ai un warning qui s'affiche, mais je ne sais pas si dans le cas ou j'ai plusiers blancqs par exemple \b m'en prend qu'un ou plusieurs (sur ce que j'ai vu su la doc il me semble que ca matche tout caractère différent de a-z, 0-9 ou _.

\b ne prend aucun blanc, \b est une ancre (un métacaractère qui doit vérifier une condition mais ne capture aucun caractère de la chaîne testée), l'ancre de limite de mot ("mot" au sens de suite de caractères correspondant au métacaractère \w).