Regex & Sed / Perl: Übereinstimmendes Wort, dem kein anderes Wort vorangestellt ist

Ich möchte alle Vorkommen eines Wortes verwenden sedoder perlersetzen, das kein bestimmtes Wort vor sich hat.

Zum Beispiel habe ich eine Textdatei, die eine Handlung eines Films enthält, und ich möchte alle Vorkommen des Nachnamens eines Charakters durch seinen Vornamen ersetzen, aber nur, wenn sein Vorname nicht unmittelbar vor seinem Nachnamen steht.

Der Beispieltext könnte folgendermaßen aussehen:

John Smith and Jane Johnson talk about Smith's car.

Ich möchte, dass es so aussieht:

John Smith and Jane Johnson talk about John's car.

Wenn ich es nur tue sed 's/Smith/John/' file, hätte ich:

John John and Jane Johnson talk about John's car.

Der Vorname, der vor dem Nachnamen steht, ist immer der gleiche. Ich muss mich nicht mit John Smithund befassen Frank Smith. Ich brauche nur einen passenden Weg, Smithdem es nicht Johnvorausgeht.

Wäre einfach mit jeder Sprache, in der die regulären Ausdrücke in der Lage sind, sich zu verhalten. Natürlich ist Perl der erste auf der Liste:

perl -pe 's/(?<!John\W)Smith/John/g' <<< "John Smith and Jane Johnson talk about Smith's car."

Die Schwachstelle besteht darin, dass zwischen „John“ und „Smith“ mehr als ein Nicht-Wort-Zeichen steht. Leider würde ein Quantifizierer wie +for \Wden Fehler "Lookbehind nicht implementiert" mit variabler Länge auslösen.

EDIT .. re your comment .. Hier ist ein neues Skript, das sich nicht um (z. B.) William Smith kümmert. Es verschleiert vorübergehend Muster, die es als Smith beibehält (unverändert).

sed -r 's/\<(John) (Smith)\>/\1\x01x\2/g; 
        s/\<Smith\>/John/g;  s/\x01x/ /g'

Wenn Sie sich Sorgen um Herrn, Herrn, Frau machen, dann funktioniert das.

sed -r 's/\<(John|((M(r|rs|s))\.?)) (Smith)\>/\1\x01x\5/g
        s/\<Smith\>/John/g; s/\x01x/ /g'

Sie können für William sorgen, indem Sie seinen Namen zur Liste oder hinzufügen , z.
sed -r 's/\<(William|John|...

Dies ist das ursprüngliche Skript

sed -r 's/(^|[[:punct:]] |\<[a-z]+ )(Smith\>)/\1John/'

 sed -r 's/([^John] )Smith/\1John/g;s/([^Jane] )Johnson/\1Jane/g'

Das () erfasst den Nicht-Vornamen vor einem Nachnamen, sodass sie beim Ersetzen zurückverfolgt werden.

Bearbeiten

@ Manatwork, Gilles

Du hast recht. Wie wäre es mit

sed -r 's/(John Smith)/temp1/g;s/Smith/John/g;s/temp1/John Smith/g'

Dies scheint den Trick zu tun.