[perl] copie fichier1 -> fichier2 sauf début
fifto
Messages postés
54
Statut
Membre
-
zipe31 Messages postés 34620 Date d'inscription Statut Contributeur Dernière intervention -
zipe31 Messages postés 34620 Date d'inscription Statut Contributeur Dernière intervention -
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 "DEBUT" 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
DEBUT
etc....jusque fin de fichier
mon nouveau fichier est :
o
phdoj
230487130
DEBUT
etc....jusque fin de fichier
Voilà, j'ai déjà réussi à écrire dans le nouveau fichier à partir du mot DEBUT, mais je ne sais pas comment conserver les 3 lignes d'avant..
Qqn pourrait m'aider svp ?
merci.
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 "DEBUT" 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
DEBUT
etc....jusque fin de fichier
mon nouveau fichier est :
o
phdoj
230487130
DEBUT
etc....jusque fin de fichier
Voilà, j'ai déjà réussi à écrire dans le nouveau fichier à partir du mot DEBUT, mais je ne sais pas comment conserver les 3 lignes d'avant..
Qqn pourrait m'aider svp ?
merci.
4 réponses
-
Salut,
Si tu postais ce que tu a déjà écrit, celà ferait grandement avancer le "schmillblick" et ferait par la même gagner un temps précieux à notre ami "lami20j", non ?
De plus celà t'aiderait sûrement un peu plus du fait que si des incohérences existent dans ton code, elles seraient revues et corrigées au passsage.
;-)) -
oui t'as raison pardon.
Voilà ce que j'ai écrit:
#! /usr/freeware/bin/perl
use warnings;
use strict;
open TTXT ,"fichier1.txt" or die "E/S";
open NEW ,">nouveau.txt" or die "E/S";
open NEW2 ,">nouveau.txt" or die "E/S";
while(<TTXT>){
next unless (/DEBUT/i../END/i);
print NEW $_;
}
MAis ce code affiche à partir de "DEBUT" dans le nouveau fichier, pas les 3 lignes avant ce mot.. -
Merci.
Tu le veux absolument en Perl ton code ?
Parce qu'avec un simple filtre comme "grep" ça peut le faire sur une seule petite ligne de commande...grep -B 3 -A "$(cat fich.txt | wc -l)" "DEBUT" fich.txt > fichier.txt
;-))-
-
Salut,
man grep !Contrôle des lignes de contexte -A N, --after-context=N Afficher les N lignes qui suivent celle contenant le motif. Une ligne contenant -- est insérée entre les groupes contigus de correspondances. Avec l'option -o ou --only-matching, ça n'a aucun effet et un avertissement est affiché. -B N, --before-context=N Afficher les N lignes qui précèdent celle qui contient le motif. Une ligne contenant -- est insérée entre les groupes contigus de correspondances. Avec l'option -o ou --only-matching, ça n'a aucun effet et un avertissement est affiché.
-
-
Salut,
#! /usr/bin/perl use warnings; use strict; my (@lignes3,@rest); while (<DATA>){ next if 1../DEBUT/i and push @lignes3,$_; splice(@lignes3,0,-4); push @rest,$_; } print @lignes3,@rest; __END__ llll kkkkk ksdjkfjlll ooo ppp o phdoj 230487130 DEBUT etc....jusque fin de fichier La solution de jipicy est bien plus simple. C'est très bien d'utiliser les outils déjà existentes. A toi de voir. lami20j
