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

fifto Messages postés 54 Statut Membre -  
lami20j Messages postés 21644 Statut Modérateur, Contributeur sécurité -
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 21644 Statut Modérateur, Contributeur sécurité 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