Discussion :

[sinsedrix]

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

[Beniou]

Il suffit de mettre le contenu du match $1 dans une variable pour faire ta substitution après. En effet, tu ne peux pas modifier cette variable directement.

Code :

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

1
2
3
4
5
 
if($ligne =~ m/bla(.*?)bla/) {
   my $value = $1;
    $value =~ s/(.*?)ope(.*?)/$1 ope $2/g;
}

[Philou67430]

Il est tout à fait possible de modifier un élément dans un chaine...

Code :

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

1
2
3
4
my $ligne = 'bonjour bla 1ope2 ; 3ope4 bla adieu';
if($ligne =~ m/bla(.*?)bla/) {
  $ligne =~ s/(bla.*?)ope(.*?bla)/$1 ope $2/g;
}

Après essai, il semble que seul le premier match soit correctement subsitué... je regarde après le café

[sinsedrix]

Il est tout à fait possible de modifier un élément dans un chaine...

Code :

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

1
2
3
4
my $ligne = 'bonjour bla 1ope2 ; 3ope4 bla adieu';
if($ligne =~ m/bla(.*?)bla/) {
  $ligne =~ s/(bla.*?)ope(.*?bla)/$1 ope $2/g;
}

Après essai, il semble que seul le premier match soit correctement subsitué... je regarde après le café

Désolé mais cela ne fait pas la même chose, la question porte sur la modification de l'élément matché entre les deux "bla".
Du coup ton code n'aura d'effet que sur le premier motif contenant "ope" (malgré l'option "g").

[Beniou]

Il est tout à fait possible de modifier un élément dans un chaine...

Quand je dis qu'on ne pouvait pas modifier cette variable, je voulais parler bien sûr de $1 utilisée comme dans son exemple ou peut être me trompe-je encore ?

[Beniou]

En attendant la version de Philou, voici une version qui fonctionne mais qui n'est pas très esthétique...

Code :

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

1
2
3
4
5
6
7
8
 
if($ligne =~ m/(.*bla)(.*?)(bla.*)/) {
  my $debut = $1;
  my $subst = $2;
  my $fin = $3;
  $subst =~ s/(.*?)ope(.*?)/$1 ope $2/g;
  $ligne = $debut.$subst.$fin;
}

Par contre cela ne marchera que si on ne trouve qu'une seule occurrence bla.. bla par ligne...

[Philou67430]

OK, j'ai compris en regardant à nouveau l'exemple : il y a plusieurs ope à modifier entre les bla ... bla. De fait, mon expression régulière se terminant par le 2e bla ne peut pas matcher plusieurs fois.

Dans ce cas, effectivement, il convient de partager la ligne et de modifier l'élément avant de la reconstruire :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
 
#!/usr/bin/perl
 
my $ligne = "bonjour bla 1ope2 ; 3ope4 bla adieu";
my $l = $ligne;
 
@l = split /(bla.*?bla)/, $ligne;
foreach my $motif (@l) {
  if ($motif =~ /bla.*?bla/) {
    $motif =~ s/ope/ ope /g;
  }
}
$ligne = join "", @l;

[sinsedrix]

Merci pour ce début de réponse

Il suffit de mettre le contenu du match $1 dans une variable pour faire ta substitution après. En effet, tu ne peux pas modifier cette variable directement.

Code :

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

1
2
3
4
5
 
if($ligne =~ m/bla(.*?)bla/) {
   my $value = $1;
    $value =~ s/(.*?)ope(.*?)/$1 ope $2/g;
}

Effectivement, c'est une bonne idée, mais ça n'a aucun impact sur la ligne traitée, seulement sur $value.
Peut-être y a-t-il moyen de réinjecter (en tenant compte du fait que plusieurs substitutions ont pu être faites ).