Discussion :

[faddou]

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 :

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

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 :

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

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

[Jedai]

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 :

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

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ï

[faddou]

Salut,

j'ai résolu ce problem

Merci beaucoup pour votre aide

cdt