Impossible de remplacer le mot dans le contenu d'un dossier donné par Sed/Python/Perl

Question

J'ai un projet dans lequel j'ai des dossiers, des sous-dossiers et des fichiers. J'ai besoin de remplacer le mot Masi par le mot Bond dans chaque fichier.

je lance le script Sed suivant appelé sans succès remplacer

s/Masi/Bond/ 

à zsh par

sed -f PATH/replace PATH2/project/** 

Il me donne tous les fichiers, aussi ceux qui n'ont pas Masi, en tant que sortie.

Sed n'est pas nécessairement le meilleur outil pour la tâche. Je suis intéressé par Python et Perl.

Comment faire le remplacement dans Sed/Perl/Python, de sorte que seul le contenu du fichier est modifié?

Answer 1

Pour remplacer le mot dans tous les fichiers trouvés dans le répertoire courant et des sous-répertoires

perl -p -i -e 's/Masi/Bond/g' $(grep -rl Masi *) 

ci-dessus ne fonctionnera pas si vous avez des espaces dans noms de fichiers. Plus sûr de le faire:

find . -type f -exec perl -p -i -e 's/Masi/Bond/g' {} \; 

ou Mac qui a des espaces dans les noms de fichiers

find . -type f -print0 | xargs -0 perl -p -i -e 's/Masi/Bond/g' 

Explications

• -p signifie impression ou mourir
• -i signifie « ne pas faire des fichiers de sauvegarde "
• -e vous permet d'exécuter perl c ode en ligne de commande

Answer 2

Pourquoi ne pas simplement passer l'option -i (man sed) à sed et en avoir fini avec elle? S'il ne trouve pas Masi dans un fichier, le fichier sera simplement réécrit sans modification. Ou est-ce que je manque quelque chose?

Si vous ne souhaitez pas remplacer les contenus de fichiers en ligne (ce qui est ce que le -i fera), vous pouvez le faire exactement comme vous êtes maintenant, mais jetez un devant grep & xargs de celui-ci:

grep -rl Masi PATH/project/* | xargs sed -f PATH/replace 

Beaucoup d'options, mais ne pas écrire un script perl entier pour cela (je vais donner un one-liner une passe;)). find, grep, sed, xargs, etc sera toujours plus flexible, à mon humble avis.

En réponse au commentaire:

grep -rl Masi PATH/project/* | xargs sed -n -e '/Masi/ p' 

Answer 3

Une solution testée sur Windows

Nécessite module CPAN File :: Slurp.Fonctionne avec les caractères génériques de shell Unix standard. Comme ./replace.pl PATH/replace.txt CHEMIN2/remplacer *

#!/usr/bin/perl 

use strict; 
use warnings; 
use File::Glob ':glob'; 
use File::Slurp; 
foreach my $dir (@ARGV) { 
    my @filelist = bsd_glob($dir); 
    foreach my $file (@filelist) { 
    next if -d $file; 
    my $c=read_file($file); 
    if ($c=~s/Masi/Bond/g) { 
     print "replaced in $file\n"; 
     write_file($file,$c); 
    } else { 
     print "no match in $file\n"; 
    } 
    } 
} 

Answer 4

Renommer un dossier complet de fichiers:

use warnings; 
use strict; 
use File::Find::Rule; 

my @list = File::Find::Rule->new()->name(qr/Masi/)->file->in('./'); 

for(@list){ 
    my $old = $_; 
    my $new = $_; 
    $new =~ s/Masi/Bond/g; 
    rename $old , $new ; 
} 

Remplacement des chaînes dans les fichiers

use warnings; 
use strict; 
use File::Find::Rule; 
use File::Slurp; 
use File::Copy; 

my @list = File::Find::Rule->new()->name("*.something")->file->grep(qr/Masi/)->in('./'); 

for(@list){ 
    my $c = read_file($_); 
    if ($c =~ s/Masi/Bond/g;){ 
    File::Copy::copy($_, "$_.bak"); # backup. 
    write_file($_ , $c); 
    } 
} 

• strict (core) - Perl pragma pour limiter les constructions dangereuses
• warnings (noyau) - Perl pragma pour contrôler les avertissements en option
• File::Find::Rule - Interface alternative au fichier :: Trouver
• File::Find (noyau) - Traverse une arborescence.
• File::Slurp - Lecture efficace/écriture des dossiers complets
• File::Copy (noyau) - Copiez les fichiers ou les handles de fichiers

Answer 5

import glob 
import os 

# Change the glob for different filename matching 
for filename in glob.glob("*"): 
    dst=filename.replace("Masi","Bond") 
    os.rename(filename, dst)