ajout paragraphe dans le fichier comme Event Log

Salut,

je voudrais ajouter un paragraphe au debut d'un fichier, mais comment on dois faire?

supposons qu'on a un fichier de la forme suivante

Code:

---

1 2 3 4 5

#### lastupdated 21/04/2004 #### Nom: xxxxx Prenom: yyyy Adresse: zzzzzz ##########################

---

je veux ajouter un autre paragraphe comme Event Log

Code:

---

1 2 3 4 5 6 7 8 9 10 11

#### lastupdated 23/04/2004 #### Nom: aaaa Prenom: bbbb Adresse: cccc ##########################   #### lastupdated 21/04/2004 #### Nom: xxxxx Prenom: yyyy Adresse: zzzzzz ##########################

---

merci pour votre aide

cdt

Si tu veux insérer arbitrairement des lignes dans un fichier, Tie::File est la solution disponible en standard avec Perl.

Quelque chose comme ça :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17

#!/usr/bin/perl use strict; use warnings;   use Tie::File; my $filename = 'test_case.txt'; tie my(@file), 'Tie::File', $filename or die "Couldn't open $filename : $!\n";   my @first_lines = ( "This is the new first line", "And this the new second one", );   unshift @file, @first_lines;   untie @file; __END__

---

--
Jedaï

Salut,

j'ai résolu ce problem :king:

Merci beaucoup pour votre aide

cdt