Discussion :

[FRANCO0211]

Bonjour à tous,

Je dois manipuler la ligne suivante:

Code :

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

(X=1 ALORS A SEP OR Y=1 ALORS B) SEP AND U<=Z<=V ALORS W

En fait, je veux découper la ligne en dessus selon "SEP" qui se trouve en dehors des parenthèses pour avoir en résultat:

Code :

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

(X=1 ALORS A SEP OR Y=1 ALORS B)

et

Code :

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

 AND U<=Z<=V ALORS W

Avec la ligne de code suivante:

Code :

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

my @Table = split(/SEP/, $ligne_code);

,
le séparateur "SEP" qui se trouve entre les parenthèses est pris en considération.

Est ce qu'il ya une solution pour ignorer le séparateur "SEP" qui se trouve entre les 2 parenthèses ?

Merci BCP d'avance

[Jedai]

Si ton besoin se limite à cela, on peut arranger quelque chose, mais si tu as l'intention de traiter ce fichier plus avant, je te conseille vraiment de chercher une vraie solution à base de parser. De quel langage s'agit-il ?

[FRANCO0211]

Merci pour la réponse Jedai,

Je dois convertir la ligne de code en langage C.
Comment je pourrais avoir une solution à base de parser ?

[FRANCO0211]

Un autre chemin peut résoudre mon problème :

Je voulais changer le nom du séparateur "SEP" qui se trouve entre les parenthèses par "SEP2" :

(X=1 ALORS A SEP OR Y=1 ALORS B) SEP AND U<=Z<=V ALORS W

J'ai utilisé l'expression régulière suivante :

Code :

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

$Line_code =~ s/SEP/SEP2/g;

Mais cette expression prend en considération tous les séparateurs "SEP".
Comment faire pour ne traiter que "SEP" qui se trouve entre les parenthèses.

[Lolo78]

C'est faisable avec une regex pour ce cas particulier, mais c'est pratiquement infaisable avec des regex pour un cas général. Il faut vraiment un parser.

Soit tu écris toi même un parser minimum pour ta syntaxe, soit tu utilises un parser générique comme celui-ci de Damian Conway, mais ça demande un peu de temps d'apprentissage.

[FRANCO0211]

Merci Lolo78 pour ta réponse,

Comment je peux le faire avec une regex pour ce cas particulier ?

Merci BCP d'avance

[Lolo78]

Si ta ligne se trouve dans la variable $line, tu peux par exemple faire ceci:

Code :

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

1
2
 
$line =~ s/(\(.+)SEP(.+\))/$1SEP2$2/g;

La ligne contient maintenant: "(X=1 ALORS A SEP2 OR Y=1 ALORS B) SEP AND U<=Z<=V ALORS W".

La regex ne fait la substitution SEP en SEP2 que s'il y a une parenthèse ouvrante avant et une parenthèse fermante après.

Exemple sous le debugger Perl:

Code :

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

1
2
3
4
5
6
7
  DB<1>  $line = "(X=1 ALORS A SEP OR Y=1 ALORS B) SEP AND U<=Z<=V ALORS W";
 
  DB<2> $line =~ s/(\(.+)SEP(.+\))/$1SEP2$2/g;
 
  DB<3> p $line
(X=1 ALORS A SEP2 OR Y=1 ALORS B) SEP AND U<=Z<=V ALORS W
  DB<4>

Mais ce n'est pas généralisable à des lignes ayant une structure syntaxique différente. C'est pour cela que les regex ne sont guère adaptées et qu'il faut passer par un parser.

[FRANCO0211]

Merci Lolo78 pour tes réponses,

Je vais essayer d'utiliser un parser pour ma syntaxe.