Discussion :

[issoram]

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.

[djibril]

Code :

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

1
2
3
4
5
6
7
#!/usr/bin/perl
use strict;
use warnings;
 
my $chaine = "bonjourX5toto5";
$chaine =~ s{X\d}{X3};
print $chaine;

[issoram]

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 :

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

*\D\d*

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

Code :

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

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

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

merci bien.

[Dimitry.e]

Comme ça ?

Code :

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

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

[issoram]

EH BIEN MERCI

[Philou67430]

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

Code :

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

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