modifier un fichier en perl

salut a tous,

j'ai un fichier du genre :

stats
compta
gestion
perso
salaire
...


Je voudrais ouvrir ce fichier, recuperer le contenu de la 1ere ligne dans une variable et supprimer cette ligne du fichier.

Je tiens absolument a faire cela via un open ... while(<FILEHANDLE>) ...
Donc pas question d'utiliser les commande systemes linux (qui sont tres adapter pour ce genre de manip d'ailleur : awk tail cut ...)

J'arrive a ouvrir le fichir lire la 1ere ligne mais comment la modifier sans passer par un fichier temporaire.


Merci de vos reponses.

Tie::File :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12

#!/usr/bin/perl use strict; use warnings;   use Tie::File; my $filename = 'my_filename'; tie my(@file), 'Tie::File', $filename or die "Couldn't open $filename : $!\n";   my $first_line = shift @file;   untie @file; __END__

---

Tie::File est distribué en standard avec Perl.

--
Jedaï

Merci mon pote :-)

Que la force soit avec toi lol