Re: Remplacement de chaines de car. dans un fichier

Startseite

Nachricht beantworten
Autor: Serge.Rouveyrol@imag.fr
Datum:  
To: guilde
Betreff: Re: Remplacement de chaines de car. dans un fichier
Frederic MANTEGAZZA wrote:

> Bonjour a tous,
>
> Existe-t-il un utilitaire qui permet de remplacer une chaine de caracteres
> par une autre dans un fichier ?
>
> Il faudrait qu'il puisse faire la difference entre minuscule et majuscule
> (sous Unix, ca devrait etre toujours le cas), et eventuellement qu'il
> puisse prendre la liste des chaines a modifier dans un fichier (la j'en
> demande peut-etre beaucoup...)
>
> Merci.
>
> Frederic


#!/bin/env perl


$fichier_instructions = $ARGV[0];

open (FICHIER_INSTRUCTIONS, $fichier_instructions) ||
die "fichier $fichier_instructions inouvrable : $!";

while (<FICHIER_INSTRUCTIONS>) {
chomp($_);
push @liste_instructions, $_;
}
close(MODIFS);

while (<STDIN>) {
for $instruction ( @liste_instructions ) {
eval $instruction;
EOF
}
print $_;
}