Bonjour,
J'aimerais faire quelque chose sous perl:
Je lis un fichier texte, et je le copie dans un autre fichier texte dès que je trouve le mot "DISPLACEMENT" ainsi que les 3 lignes précédent ce mot.
C'est à dire que par exemple, si mon fichier de départ est:
llllll
kkkkk
lll
ooo
ppp
o
phdoj
230487130
DISPLACEMENT
etc....jusque fin de fichier
mon nouveau fichier est :
o
phdoj
230487130
DISPLACEMENT
etc....jusque fin de fichier
Voilà, j'ai déjà réussi à écrire dans le nouveau fichier à partir du mot DISPLACEMENT, mais je ne sais pas comment conserver les 3 lignes d'avant..
Qqn pourrait m'aider svp ?
merci.