Bonjour,

Je souhaite pouvoir faire une substitution dans un élément matché, je ne sais pas si c'est possible.

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
my $ligne = 'bonjour bla 1ope2 ; 3ope4 bla adieu';
 
if($ligne =~ m/bla(.*?)bla/) {
    $1 =~ s/(.*?)ope(.*?)/$1 ope $2/g
}
perl me retourne :
Modification of a read-only value attempted
Y a-t-il une solution à ce problème ?
Merci