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 ).

Mon fichier ressemble à ça :

Code : Sélectionner tout - Visualiser dans une fenêtre à part
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 : Sélectionner tout - Visualiser dans une fenêtre à part
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.


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