perl -i -pe 's/truc a remplacer/truc de remplacement/g' monfichier
ça, c'est un uniligne qui te le fait facilement.
Si tu veux le faire dans un programme plus classique, un truc du genre (vite fait, hein) :
#!/usr/bin/perl -w
my $source_file = "/mon/chemin/vers/monfichier";
open SOURCE, $source_file or die "can't open $source_file $!";
while (my $line=<SOURCE>) {
if($line =~ /contient ma chaîne/) {
print "found";
s/contient ma chaîne/truc de remplacement/g;
}
}
close(SOURCE);
Une bonne lecture, les articles de Linux magazine France : http://articles.mongueurs.net/magazines/
# C'est complétement fait pour
Posté par Gart Algar . En réponse au message substitution d'une chaine dans un fichier texte. Évalué à 2.
ça, c'est un uniligne qui te le fait facilement.
Si tu veux le faire dans un programme plus classique, un truc du genre (vite fait, hein) :
#!/usr/bin/perl -w
my $source_file = "/mon/chemin/vers/monfichier";
open SOURCE, $source_file or die "can't open $source_file $!";
while (my $line=<SOURCE>) {
if($line =~ /contient ma chaîne/) {
print "found";
s/contient ma chaîne/truc de remplacement/g;
}
}
close(SOURCE);
Une bonne lecture, les articles de Linux magazine France : http://articles.mongueurs.net/magazines/