Discussion :

[parsy]

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 :

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

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

devienne

Code :

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

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

et non pas

Code :

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

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

comme fait le code suivant:

Code :

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

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

[gege2061]

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

Code :

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

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

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

[chostrama]

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

Code :

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

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électionner tout - Visualiser dans une fenêtre à part

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

[gege2061]

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électionner tout - Visualiser dans une fenêtre à part

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

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

Code :

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

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

je ne connaissai pas

[parsy]

Merci,

J'ai essayé ton code

Code :

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

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électionner tout - Visualiser dans une fenêtre à part

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 :

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

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

[chostrama]

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

[nematoad]

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électionner tout - Visualiser dans une fenêtre à part

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

[Jedai]

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é.

--
Jedaï

[parsy]

Merci beaucoup pour vos réponses