Discussion :

[autousto]

bonjour,

J'ai une question simple je crois, comment on peut écrire des ligne au début d'un fichier et a la fin, donc sans toucher au continue.
et j'ai meme trouver quelque diffirence sur la manière d'ouverture par exemple j'ai trouvé sur un site quand on met +> sa veut dire écriture en fin de fichier
et quand on met <+ permet d'écrire au début du fichier alors que ici j'ai trouvé que +< lecture et écriture en ajout mais +> ecraser !!!!
merci de votre aide

[mamax29]

Salut,

En perl, il n'est pas "naturel" de modifier un fichier, il y a cependant des modules pour cela
il y a un post qui traitait de cela:
http://www.developpez.net/forums/d10...utres-fichier/


Le mieux c'est de lire le fichier et le stocker dans un tableau (chaque ligne du fichier sera une entrée dans le tableau) à condition tout de même que le fichier en question ne soit pas trop grand.
Ensuite utilise "push" pour ajouter un élément à la fin, ou "unshift" pour en ajouter au début.

Enfin on écrit le tableau dans un nouveau fichier

[autousto]

oui, merci j'ai pensé a sa mais enfaite le fichier traité à au minimum 3000 ligne donc, je ne sais pas si sa sera pas un peut lang sachant que d'autre fichier dépasse largement les 3000 ligne.
merci

[mamax29]

3000 ligne ça passe facile.

Mais à y réfléchir y'a même pas besoin de stocker le fichier dans un tableau.

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
 
open(IN, "<monfichier");
open(OUT, ">monfichier");
 
print OUT "ajout d'une ligne en début";
 
while (my $ligne = <IN>)
{
    print OUT $ligne;
}
 
print OUT "ajout d'une ligne à la fin";

[autousto]

alors, j'ai essayé le code, et enfaite sa modifie pas le fichier mais sa l'écrase !!

[mamax29]

Oui j'ai écrit le code rapido....

Code :

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

1
2
open(IN, "<monfichier-entree");
open(OUT, ">monfichier-sortie");

Mais par défaut perl ne sais pas modifier un fichier, il sait les lire et en créer

Le principe est donc
1) de lire le fichier source
2) de réécrire un nouveau fichier avec ce que tu veux dedans

[autousto]

merci, j'avoue que c'est pas aussi difficile
merci encore

[autousto]

Enfaite je pense le plus simple c'est de crée un fichier temporaire et puis recopié dans le fichier d'entrée car le nom du fichier doit etre fix,

[autousto]

J'ai du mal à ecrire sur un fichier temporaire, voila se que j'ai met comme code mais sa marche pas

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
18
19
20
21
22
23
use File::Temp qw(tempfile);
my($tmp, $tempname) =tempfile();
open ( $IN, '<',"C:/Users/u395591/Desktop/file.txt");
open ( $tmp, '>',$tempname);
 
print {$tmp} "jajaajajajajajaja\n";
 
while (my $ligne = <IN>)
{
    print {$tmp} $ligne;
}
 
print {$tmp}"gogogogogogooooooo\n";
close (IN);
close $tmp;
 
open ( $IN, '>',"C:/Users/u395591/Desktop/file.txt");
open ($tmp, '<',$tempname);
 
while(my $ligne = <$tmp>)
{
    print IN $ligne;
}

[Philou67430]

Ton code est erroné : tu as utilisé un scalaire pour stocker ton file handle, et tu dois utiliser ce scalaire pour lire et fermer le fichier.
Par ailleurs, si tu utilises un scalaire pour stocker un file handle, il faut impérativement qu'il soit "undef" avant l'appel à open (ajout de undef $IN dans ton code).

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
18
19
20
21
22
23
24
25
 
use File::Temp qw(tempfile);
my($tmp, $tempname) =tempfile();
open ( $IN, '<',"C:/Users/u395591/Desktop/file.txt");
open ( $tmp, '>',$tempname);
 
print {$tmp} "jajaajajajajajaja\n";
 
while (my $ligne = <$IN>)
{
    print {$tmp} $ligne;
}
 
print {$tmp}"gogogogogogooooooo\n";
close ($IN);
close $tmp;
 
undef $IN;
open ( $IN, '>',"C:/Users/u395591/Desktop/file.txt");
open ($tmp, '<',$tempname);
 
while(my $ligne = <$tmp>)
{
    print { $IN } $ligne;
}

Sinon, il y a une manière plus simple de procéder :

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
18
19
use File::Temp qw/ :POSIX /;
 
$file = "C:/Users/u395591/Desktop/file.txt";
$tmpfile = tmpnam();
rename $file, $tmpfile;
open my $IN, "<", $tmpfile;
open my $OUT, ">", $file;
 
print {$OUT} "jajaajajajajajaja\n";
 
while (my $ligne = <$IN>)
{
    print {$OUT} $ligne;
}
 
print {$OUT}"gogogogogogooooooo\n";
 
close $IN;
close $OUT;

(je n'ai pas vérifier le code : fait une copie de sauvegarde avant d'utiliser le script).

Le principe de cet algo est simple : on renomme le fichier d'origine dans un fichier temporaire. On ouvre le fichier temporaire en lecture et le fichier original en écriture et on boucle pour écriture le nouveau fichier.
A la fin, on peut supprimer le fichier temporaire (fonction unlink) ou le conserver comme backup.

[autousto]

Merci, c'est exactement se que je recherchais,