Opérateurs de remplacement

Bonjour à tous,

J'ai besoin d'un petit coup de main.
Comme je suis une grosse feignasse j'ai voulu utiliser la fonction rechercher/remplacer avec des regexp afin de modifier un fichier. Or cela n'à pas marché (vous verrez pourquoi après :mouarf:).

Mon fichier ressemble à ça :

Code:

---

1 2 3 4 5

MOT 100 MOT 200 MOT 101 MOT 201 MOT 102 MOT 202 ...

---

Je voulais ajouter 50 à chaque nombre afin que cela commence à 150 dans l'exemple ci-dessus.

Pour modifier le fichier je compte utiliser le module Tie::File mais ce n'est pas ça le souci.

Je ne parviens pas à remplacer une partie de la chaîne. J'ai cru comprendre que l'opérateur s/// était notre amis dans ce cas mais je n'arrive pas l'utiliser.

J'ai essayé ceci :

Code:

---

1 2 3 4 5

print $a= "ligne 123 et 456"; $a = s/(\d{3})/$1+50/;   print $a;

---

Mais la chaîne n'est pas modifiée. :calim2:


Aussi je vous demande de l'aide, je veux juste modifier un bout de chaîne.
En dernier recourt je passe la string dans un tableau en splitant sur \s puis je modifie les cases et je join mais je me demandais si c'était pas plus rapide le s///...

Voili voilou à votre bon coeur M'sieurs-Dames

Bonjour,

A ton exemple, il manque 3 choses pour que cela fonctionne :
- le =~ au lieu du =
- le modifier 'g' pour global pour dire de remplacer toutes les occurences et pas seulement la première
- le modifier 'e' pour spécifier que la partie droite doit être évaluée comme du code (ici une addition)

Code:

---

1 2 3 4 5 6 7 8

use strict; use warnings;   my $string = 'MOT 100 MOT 200'; print $string."\n";   $string =~ s/(\d{3})/$1+50/eg; print $string."\n";

---

J'ai oublié de recopier le "~" mais sinon il y était.
Merci pour ces indications concernant le "e" et le "g".

Au final ce fut plus long de tenter de faire le script que de tout modifier à la main :roll: mais maintenant sa marche ! :ccool: Gare à vous prochains fichiers ! Je suis armé !

Merci encore.