Discussion :

[djezair31]

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.

[Jedai]

Tie::File :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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ï

[djezair31]

Merci mon pote :-)

Que la force soit avec toi lol