replace avec position

Bonjour,

Comment faire un replace avec des position en perl ?

je m'explique :

Voilà la structure de mon fichier :

Citation:

---

AAAAA BBBBBB CCCCC DDDD
AAAAA TTTTTTT CCCCC DDDD
AAAAA FFFFFFF UUUUU CCCCC
...

---

Je voudrai par exemple remplacer dans chaque ligne, la chaine de caractères qui commence par la position 6 avec la longueur 5, par un YYYYY

c.a.d :

Citation:

---

AAAAA YYYYYB CCCCC DDDD
AAAAA YYYYYT CCCCC DDDD
AAAAA YYYYYF UUUUU CCCCC
...

---

Merci

Tu peux considérer la chaîne à gauche du remplacement, celle à droite, le remplacement au milieu et coller le tout:

Code:

---

substr($ligne, 0, 6) . "YYYYY" . substr($ligne, 11)

---

Citation:

---

Envoyé par devdev2003

Comment faire un replace avec des position en perl ?
Je voudrai par exemple remplacer dans chaque ligne, la chaine de caractères qui commence par la position 6 avec la longueur 5, par un YYYYY

---

Tu peux utiliser substr() avec 4 arguments :

Code:

---

substr $line, 5, 5, 'YYYYY';

---

--
Jedaï