Cet article vous apprendra comment rechercher et remplacer une chaîne de caractères dans un fichier en perl.

perl -pi -e ‘s/ancienneValeur/nouvelleValeur/g’ monFichier1 monFichier2…

Exemple : rechercher logLevel=debug et le remplacer par logLevel=error

perl -pi -e ‘s/logLevel=debug/logLevel=error/g’ /appli1/httpd.conf /appli2/httpd.conf

J’utilise -i pour indiquer à perl d’éditer et de remplacer directement les données dans le fichier source.

J’utilise -p pour boucler sur la liste de fichiers, la documentation « man perlrun » nous indique que cela équivaut à faire :

 LINE:
                while (<>) {
                    ...             # your program goes here
                } continue {
                    print or die "-p destination: $!\n";
                }

Enfin l’option -e me sert pour passer en paramètre une ligne de commande, ici un rechercher/remplacer, comme en sed.

Nous verrons plus tard comment utiliser les expressions régulières avec perl.