remplacement sous chaine dans regexp

Bonjour,

Voilà la problématique que je n'arrive pas à résoudre avec une expression régulière: je cherche à remplacer une sous chaine du motif matché par une autre chaine (et pas tout le motif matché: ce que j'arrive seulement à faire)

Exemple:

Dans la chaine: "bonjourX5toto5" ", si je recherche le caractère "X" suivi d'un numérique, je vais récupérer "X5"

Je voudrais modifier juste le "5" et pas "X5",
par exemple par 3: "bonjourX3toto5"

mais je n'y arrive pas

Merci de votre aide.

Code:

---

1 2 3 4 5 6 7

#!/usr/bin/perl use strict; use warnings;   my $chaine = "bonjourX5toto5"; $chaine =~ s{X\d}{X3}; print $chaine;

---

Ok, j'ai mal formulé.

Je ne sais pas quel caractère va précéder le numérique et je ne sais pas comment accéder au premier caractère matché.( le "X" dans l'ex ci-dessus)

Mon expression régulière étant du style :

Code:

---

*\D\d*

---

il y' a bien les références arrières...

Code:

---

$chaine=~ s/(\D)\d*/$13/

---

mais le $13 j'ai un doute...

merci bien.

Comme ça ?

Code:

---

1 2 3 4 5 6

my $s = "bonjourX5toto5";   $s =~ s/(\D)\d/$1 . '3' /e;   print $s, "\n"

---

EH BIEN MERCI :D

On peut aussi utiliser la "zero-width positive look-behind assertion" :

Code:

---

1 2 3 4 5

my $s = "bonjourX5toto5";   $s =~ s/(?<=\D)\d/3/;   print $s, "\n"

---