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

fifto Messages postés 54 Date d'inscription   Statut Membre Dernière intervention   -  
lami20j Messages postés 21331 Date d'inscription   Statut Modérateur, Contributeur sécurité Dernière intervention   -
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

Réponse 1 / 1
lami20j Messages postés 21331 Date d'inscription   Statut Modérateur, Contributeur sécurité Dernière intervention   3 570
 
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