Discussion :

[peuf23]

Bonjour,

Comment faire pour changer une ligne d'un fichier, je pensais à un truc du style :

Code :

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

1
2
3
4
5
6
7
8
 
open (F, ">>mon_fichier");
while (<F>) 
{
 @ligne= ... traitement et modification en fonction de $_ ...
print(F,@ligne) ;
}
close(F);

Merci d'avance

[GLDavid]

Salut

Il faut comprendre dans la lecture de ton fichier, dans le cas typique et scolaire, tu lis ligne par ligne.
Supposons que l'on veuille modifier le mot toto par tata dans le fichier suivant :

Code :

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

1
2
3
4
 
toto
tata
toto

On prendra le script suivant :

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
#!/usr/bin/perl -w
 
use strict;
use Carp;
 
#Fichier en lecture
open FILE,"< toto.txt" or die "$!\n";
#Fichier en écriture
open FILE_DEST,"> tata.txt" or die "$!\n";
while(<FILE>){
chomp;
#Notre ligne en cours est dans la variable spéciale $_
if(/toto/){
print FILE_DEST "tata"."\n";
}
else {
print $_."\n";
}
}
close FILE and close FILE_DEST;
#Ni vu ni connu !
unlink "toto.txt" and rename ("tata.txt", "toto.txt") and unlink "tata.txt";

@++

[gege2061]

Bonjour,
GLDavid, si tu me le permet, il manque un guillement :

Code :

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

unlink "toto.txt" and rename ("tata.txt", "toto.txt") and unlink "tata.txt";

[peuf23]

Salut,
T'es obligé de passer par un autre fichier (tata.txt)?
On peut pas changer la ligne directement dans le fichier?
Mes fichiers sont assez gros, cela prend-t-il plus de temps de passer par un autre fichier?

Merci

[GLDavid]

Bonjour,
GLDavid, si tu me le permet, il manque un guillement :

Code :

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

unlink "toto.txt" and rename ("tata.txt", "toto.txt") and unlink "tata.txt";

Exact !
Décidément Gégé, tu es mon correcteur officiel !

@++

[2Eurocents]

Décidément Gégé, tu es mon correcteur officiel !

T'inquiète pas, parrain, c'est une façon de boucler la boucle ... hein, Gégé ?

[GLDavid]

Salut

J'ai répondu aussi à ton thread précédent. Pour en revenir à ta question, si tes fichiers sont gros mais que tes disques durs ont la possibilité de faire une copie, alors ça passe. En Perl, à ma connaissance, tu ne peux pas ouvrir un fichier à la fois en lecture ou en écriture. Bien sûr l'on pourrait tout faire en mémoire vive, mais franchement le résultat est identique à cette méthode (attention aussi à ta quantité de RAM si tu dis que tes fichiers sont gros).

@++

[gege2061]

T'inquiète pas, parrain, c'est une façon de boucler la boucle ... hein, Gégé ?

A votre servir

[peuf23]

Ok, merci à vous 3!!

[Jedai]

En Perl, à ma connaissance, tu ne peux pas ouvrir un fichier à la fois en lecture ou en écriture.

Bien sûr que si !! (il suffit d'utiliser un "+<" )
Mais ça ne répond tout de même pas à la question, parce qu'en faisant ça, tu écris sur la ligne suivante (puisque c'est là que ton pointeur est dans le fichier) et en plus tu fous un beau bordel puisque tu écris peut-être sur plusieurs ligne à la fois et...
Bref c'est pas une bonne idée, le mode lecture écriture n'est intéressant que pour un fichier avec des champs de longueur fixe (en octets, pas en caractères, il faut se méfier d'unicode), qu'on lit avec des read et où on se balade à l'octet près avec seek.
La bonne méthode (dans tout langage de programmation) est donc bien de passer par un fichier temporaire.

--
Jedaï