regex en perl

Bonjour,

J'ai une chaine de caractères et je veux remplacer la dernière apparition de la sous chaine EURO par €?

Exemple :
Avant la regex :
$Chaine='blabla blabla EURO blabla EURO blabla blabla blabla EURO blabla blabla';
après la regex :
$Chaine='blabla blabla EURO blabla EURO blabla blabla blabla € blabla blabla';

j'ai essayé : $Chaine=~s/EURO$/€/; et ça marche pas

Je vous remercie d'avance pour vos réponse.

Avec ta regex, ça ne marcherait que si EURO est tout à la fin.

Je te suggère ça :

Code:

---

1 2 3

$Chaine = reverse $Chaine ; $Chaine=~s/\bORUE\b/€/; $Chaine = reverse $Chaine ;

---

si tu tiens à le faire en une seule ligne, tu peux essayer un negative lookahead :

Code:

---

1 2	$Chaine =~ s/\bEURO\b.*?(?!\bEURO\b)/€/ ;

---

mais je pense que le premier marchera plus sûrement et plus rapidement.

je pense que le plus simple est tout de meme :

Code:

---

$Chaine =~ s{(.*)EURO}{$1€}

---

Citation:

---

Envoyé par CKLN00

je pense que le plus simple est tout de meme :

Code:

---

$Chaine =~ s{(.*)EURO}{$1€}

---

---

Magnifique !
Juste pour chipoter, j'ajouterai les \b autour de EURO.

Citation:

---

Envoyé par Antoun

Magnifique !
Juste pour chipoter, j'ajouterai les \b autour de EURO.

---

oui mais moi je suis pas un chipoteur ;)

Citation:

---

Envoyé par CKLN00

oui mais moi je suis pas un chipoteur ;)

---

Je vous remercie tous pour vos répense