[PERL] rechercher / remplacer

bonjour,

je cherche à faire un rechercher/remplacer d'une chaine de caractères dans un fichier, je suis arrivée à ça :

$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.

je sais pas si ça rentre dans ce forum

$nom_fichier = "envPROD" ;
open(FILE,"$nom_fichier") or die "Impossible d'ouvrir le fichier $nom_fichier.";
# on met toute les ligne dans une liste ..
@file =<FILE>;
close(FILE);

# on recherche dans toute les lignes
foreach $ligne (@file) {
    # on remplace
    $ligne =~ s/taly/mon_nom/;
    # on print
    print "$ligne";
}

open(FILE,">>$nom_fichier");
les >> indique une ouverture pour écriture.

$FILE =~ s/taly/mon_nom/;
ça je sais pas si ça marche, meme si c'est le cas $FILE devrait contenir uniquement la première ligne du fichier...

après il y'a 1000 façon pour chaque chose en perl
Modifié par desg (20 Sep 2006 - 18:47)