Je veux simplement lire dans un fichier journal, faire une recherche et remplacer, puis écrire les modifications apportées à ce même fichier journal.Perl: boucle à travers un fichier et le remplacer
Quelle est la meilleure façon de faire cela en Perl?
Cela se fait souvent avec une seule ligne:
perl -pi.bak -e "s/find/replace/g" <file>
Notez la partie -i.bak - Cela crée un fichier de sauvegarde avec l'extension .bak. Si vous voulez jouer sans filet, vous pouvez le faire pour remplacer le fichier existant sans une sauvegarde:
perl -pi -e "s/find/replace/g" <file>
ou vous pouvez utiliser sed (je sais ... Vous avez demandé perl):
sed -i 's/find/replace/g' <file>
La façon dont sed traite les règles d'expression régulière est ... différente de celle de Perl, c'est le moins qu'on puisse dire. – GJTorikian
Mais pourquoi ne puis-je pas utiliser les backreferances? Comme perl -pi -e "s/foo (. *) Barre/barre $ 1foo /" tezt2 ne fonctionne pas .. –
Votre shell est probablement corrompre la chaîne. Essayez de remplacer votre "" par "s" pour que le * ne soit pas étendu. –
Merci d'avoir fait ça! –