Das Wort im Inhalt eines bestimmten Ordners kann nicht durch Sed/Python/Perl ersetzt werden.

Question

Ich habe ein Projekt, in dem ich Ordner, Unterordner und Dateien habe. Ich muss das Wort Masi durch das Wort Bond in jeder Datei ersetzen.

ich folgende Sed-Skript aufgerufen laufen ersetzen erfolglos

s/Masi/Bond/ 

in Zsh von

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

Es gibt mir alle Dateien, auch diejenigen, die als Ausgang nicht Masi haben.

Sed ist nicht unbedingt das beste Werkzeug für die Aufgabe. Ich interessiere mich für Python und Perl.

Wie würden Sie den Ersatz in Sed/Perl/Python, so tun, dass nur die Dateiinhalte geändert werden?

Answer 1

Um das Wort in allen oben

im aktuellen Verzeichnis und deren Unter gefundenen Dateien zu ersetzen

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

Das wird, wenn Sie Räume haben nicht arbeiten Dateinamen. Safer zu tun:

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

oder in Mac, die Leerzeichen in Dateinamen

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

Erläuterungen

• -p bedeutet, Druck oder sterben
• -i „bedeutet, hat dies nicht tun Machen Sie irgendwelche Backup-Dateien "
• -e können Sie Perl ausführen c Ode in der Befehlszeile

Answer 2

Warum nicht einfach die -i Option (man sed) an sed übergeben und damit fertig sein? Wenn Masi nicht in einer Datei gefunden wird, wird die Datei nur ohne Änderung überschrieben. Oder fehlt mir etwas?

Wenn Sie nicht wollen, um den Inhalt inline Dateien ersetzen (was die -i tun wird) Sie können genau das tun, wie Sie jetzt sind, aber eine grep & xargs vor ihm werfen:

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

Viele Optionen, aber tun nicht schreiben Sie eine ganze Perl-Skript für diese (Ich gebe dem Einzeiler einen Pass;)). find, grep, sed, xargs usw. wird immer flexibler sein, IMHO.

Als Antwort auf Kommentar:

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

Answer 3

Eine Lösung auf Windows

getestet

Benötigt CPAN-Modul File :: Slurp.Funktioniert mit Standard-Unix-Shell-Wildcards. Wie ./replace.pl PATH/replace.txt PATH2/ersetzen *

#!/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

einen Ordner umbenennen voller Dateien:

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 ; 
} 

Ersetzen Strings in Dateien

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 (Kern) - Perl-Pragma, um unsichere Konstrukte einzuschränken
• warnings (Kern) - Perl Pragma optional Warnungen steuern
• File::Find::Rule - Alternative Schnittstelle File :: Find
• File::Find (Kern) - Traverse einem Verzeichnisbaum.
• File::Slurp - Effizientes Lesen/Schreiben von kompletten Dateien
• File::Copy (Kern) - Kopieren von Dateien oder Dateihandies

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)