[PERL] effacer début d'un fichier texte

Fermé
fifto Messages postés 54 Date d'inscription vendredi 24 mars 2006 Statut Membre Dernière intervention 15 juin 2006 - 5 avril 2006 à 08:44
lami20j Messages postés 21331 Date d'inscription jeudi 4 novembre 2004 Statut Modérateur, Contributeur sécurité Dernière intervention 30 octobre 2019 - 5 avril 2006 à 16:55
Bonjour,


j'aimerais coder un script en perl qui m'efface le début d'un fichier texte et le réécrit dans un nouveau fichier texte.

En fait, le début de ce fichier s'arrête quand je rencontre le mot " D I S P L A C E M E N T " dans ce fichier.

à partir de ce mot, le nouveau fichier créé doit rester identique au fichier texte d'origine.

Vous savez comment on fait ca svp ?
merci
A voir également:

1 réponse

lami20j Messages postés 21331 Date d'inscription jeudi 4 novembre 2004 Statut Modérateur, Contributeur sécurité Dernière intervention 30 octobre 2019 3 567
5 avril 2006 à 16:55
Salut,

tu parcouru le fichier avec

while (<>) {
   push @debut,$_;
   last if /d i s p l a c e m e n t/i;# la boucle s'arrête au mot ....
}


Donc le debut de ton fichier ce trouve dans @debut.

à partir de ce mot, le nouveau fichier créé doit rester identique au fichier texte d'origine.

Pour le fichier nouveau crée c'est toi qui choisi le nom.

On se verra se soir. @+

lami20j
0