Discussion :

[taly]

bonjour,

je cherche à faire un rechercher/remplacer d'une chaine de caractères dans un fichier : j'ai épluché les faq et les autres posts qui m'ont permis d'arriver à ça :

Code :

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

1
2
3
4
5
$nom_fichier = "envPROD" ;
open(FILE,">>$nom_fichier") || die "Impossible d'ouvrir le fichier $nom_fichier.";
$FILE =~ s/taly/mon_nom/;
print FILE ;
close(FILE);

malheureusement ça ne fonctionne pas ! voyez-vous où est l'erreur ?
merci à vous.

[Arioch]

Je te proposerais bien ceci (une méthode qui en vaut une autre, à condition que le fichier ne soit pas trop gros car je charge tout son contenu en mémoire) :

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
use strict;
 
my $nom_fichier = "envPROD";
 
open(FILE,"$nom_fichier") or die "Impossible d'ouvrir le fichier $nom_fichier : $!\n";
@_ = <FILE>;
close(FILE);
 
foreach(@_)
{
    s/taly/mon_nom/g;
}
 
# attention ici, on écrase totalement l'ancien fichier !
open(FILE,">$nom_fichier") or die "Impossible de recréer le fichier $nom_fichier : $!\n";
print FILE @_;
close(FILE);

[taly]

merci pour ton code Arioch mais si mon fichier est lourd comme je m'y prend ??

[Arioch]

merci pour ton code Arioch mais si mon fichier est lourd comme je m'y prend ??

Dans ce que je t'ai donné comme exemple, tu as vu que je chargeais dans une liste (@_) toutes les lignes de ton fichier.

Dans le cas où tu dois traiter un gros fichier (5-6 Mo ou davantage par exemple), le mieux est de créer un second fichier de manière provisoire et d'écrire directement dedans les lignes du fichier d'origine après les avoir modifiées.

Voici le truc :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
use strict;
 
my $nom_fichier = "envPROD";
my $nom_fichier_temp = "envPROD_bis";
 
open(FILE,"$nom_fichier") or die "Impossible d'ouvrir le fichier $nom_fichier : $!\n";
open(PROVISOIRE,">$nom_fichier_temp") or die "Impossible de créer le fichier $nom_fichier_temp : $!\n";
while(<FILE>)
{
    s/taly/mon_nom/g;
    print PROVISOIRE $_;
}
close(FILE);
close(PROVISOIRE);

[Arioch]

J'oubliais : avec le module File::Copy, tu peux en fin de traitement renommer ton fichier provisoire avec le nom de ton fichier d'origine (attention, ce dernier sera écrasé !)

move ("fichier_provisoire", "fichier_origine");

[taly]

merci beaucoup, ça fonctionne impec !!