[Expr-Reg]conditions

Bonjour,

Je cherche à remplacer dans une chaîne de caractères les = par == en conservant les !=

Par exemple, je veux que la chaîne

Code:

---

"(a=0 et b!=0) ou (c=0 et d!=0 ou e=0)";

---

devienne

Code:

---

"(a==0 et b!=0) ou (c==0 et d!=0 ou e==0)

---

et non pas

Code:

---

"(a==0 et b!==0) ou (c==0 et d!==0 ou e==0)"

---

comme fait le code suivant:

Code:

---

1 2 3 4 5

$ch= "(a=0 et b!=0) ou (c=0 et d!=0 ou e=0)";   $ch =~s/=/==/g;   print $ch;

---

Merci de votre aide :idea:

Bonjour,
il suffit d'ajouter la condition "tout sauf !" :

Code:

---

s/[^!]=/==/g;

---

Devrait marcher (je n'ai pas essayé).

Citation:

---

Envoyé par gege2061

il suffit d'ajouter la condition "tout sauf !" :

Code:

---

s/[^!]=/==/g;

---

Devrait marcher (je n'ai pas essayé).

---

Sauf que le [^!] va quand meme manger un caractère.

Pourquoi pas plutôt un regard négatif en arrière:

Code:

---

s/(?<!!)=/=/g

---

Citation:

---

Envoyé par chostrama

Sauf que le [^!] va quand meme manger un caractère.

---

[mode="mauvaise fois"]Bah un espace[/mode]
Mais comme l'espace n'est pas obligatoire :

Code:

---

s/[^!]?=/==/g;

---

Citation:

---

Envoyé par chostrama

Pourquoi pas plutôt un regard négatif en arrière:

Code:

---

s/(?<!!)=/=/g

---

---

8O je ne connaissai pas

Merci,

J'ai essayé ton code

Code:

---

1 2 3 4

$ch= "(a=0) ou (c=0 et d!=0 et e=0)"; $ch =~ s/(?<!!)=/=/g; print "$ch\n";

---

et j'obtiens bien le résultat obtenu.

Par contre je ne comprends pas du tout la signification de l'expression régulière

Code:

---

s/(?<!!)=/=/g

---

que tu proposes :?: :?: :?: :?: :?:

Pourrais-tu m'éclairer ou m'indiquer un lien sur des explications

Encore un grand merci d'avance

Sinon j'ai trouvé le code suivant

Code:

---

1 2 3 4

$ch= "(a=0) ou (c=0 et d!=0 et e=0)"; $ch =~ s/([^!])=/$1==/g; print "$ch\n";

---

qui donne le résultat attendu, c'est peut-être moins efficace que ta solution

Ta solution produit le meme résultat. J'ai failli la proposer tout à l'heure comme alternative.

La forme (?<!xxx)yyy veut dire, à peu près : trouver des yyy qui ne sont pas précédés par des xxx, sans pour autant que les xxx fassent partie de la chaîne reconnue (donc dans ton cas, les xxx ne sont pas remplacés).

Il y a d'autres formes semblables :
(?=xxx) qui regarde vers l'avant
(?<xxx) qui regarde en arrière, sans négation.

perldoc perlre

Le regexp s/[^!]=/==/ est erroné, car il va écraser le caractère qui s'y trouvait. C'est pas grave quand c'est un espace "a = b" -> "a== b", mais plus grave quand c'est autre chose : "aa=bb" -> "a==bb".

Le zero-width lookbehind assertion <! (pour lui donner son nom, autrement dit "si ce qui précède n'est pas") sert à poser une assertion. Si l'assertion est vrai, ça matche. Sinon, ça matche pas. Donc, <!! se prononce "si ce qui précède n'est pas un point d'excla". Il faut invoquer
l'assertion avec "(?" et on le termine avec ")".

Donc (?<!!)= se dit "si ce qui précède un '=l' n'est pas un point d'excla, on le change en deux ==.

Code:

---

s/(?<!!)=/==/

---

C'est beacoup plus performant qu'une classe de caractères. Dès qu'il voit '[...]' apparaître dans une expression régulière, l'optimisateur jète l'éponge

J'en rajoute une couche après mes deux prédécesseurs : les zero-width assertion c'est bien, mangez-en !! Au niveau efficacité c'est très bon, et ça permet souvent d'exprimer des besoins complexes avec une bien plus grande facilité. :D

--
Jedaï

Merci beaucoup pour vos réponses :D :D :D :D :D :D