Discussion :

[devdev2003]

Bonjour,

Comment faire un replace avec des position en perl ?

je m'explique :

Voilà la structure de mon fichier :

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 :

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

Merci

[estofilo]

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

Code :

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

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

[Jedai]

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 :

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

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

--
Jedaï