fichier en lecture/ecriture

Marsh Posté le 16-03-2005 à 13:29:21

j'ai un peiti pb avce le code suivant:

Code :

$fichier = "H:\\test.txt";
open(F,"+<$fichier" ) || die("Erreur de lecture de $fichier, Erreur: $!\n" );
while($ligne=<F> ){
print "ligne\n";
$ligne=~s/t/p/g;
print "ligne\n";
}#fin while

mon fichier test.txt ne se met pas à jour . Théoriquement le pgr remplace les t par des p les print sont ok
mais le fichier ne se met pas à jour alors qu'il est en lecture/ecriture

merci pour un petit coup de pouce

Reply

Marsh Posté le 16-03-2005 à 13:29:21

Reply

Marsh Posté le 16-03-2005 à 13:39:30

lorsque tu utilises un "<" dans la fonction open() tu ouvres le fichier en lecture
il faut utiliser un ">" pour l'ouvrir en écriture
le mieux est de remplacer le fichier par un autre fichier (tu te feras moins cher avec les boucles bizarres)

Code :

$fichier_in = "H:\\test.txt";
$fichier_out = "H:\\test2.txt";
open (FILE_IN, "$fichier" ) || die "Erreur de lecture de $fichier, error_msg = $!\n" );
my @all_lines = <FILE_IN>;
close FILE_IN;
open (FILE_OUT, ">$fichier_out" );
foreach $item (@all_lines)
{
$item =~ s/t/p/g;
print FILE_OUT $item;
}
close FILE_OUT;

Code à tester...

Message édité par couak le 16-03-2005 à 13:39:45

Reply

Marsh Posté le 16-03-2005 à 14:38:24

couak a écrit :

lorsque tu utilises un "<" dans la fonction open() tu ouvres le fichier en lecture
il faut utiliser un ">" pour l'ouvrir en écriture
le mieux est de remplacer le fichier par un autre fichier (tu te feras moins cher avec les boucles bizarres)

Code :

$fichier_in = "H:\\test.txt";
$fichier_out = "H:\\test2.txt";
open (FILE_IN, "$fichier" ) || die "Erreur de lecture de $fichier, error_msg = $!\n" );
my @all_lines = <FILE_IN>;
close FILE_IN;
open (FILE_OUT, ">$fichier_out" );
foreach $item (@all_lines)
{
$item =~ s/t/p/g;
print FILE_OUT $item;
}
close FILE_OUT;

Code à tester...

merci bcp !!!

Reply

fichier en lecture/ecriture

Sujets relatifs:

Leave a Replay