Regex & Sed / Perl: correspond au mot qui N'EST PAS précédé d'un autre mot

Je voudrais utiliser sedou perlremplacer toutes les occurrences d'un mot qui n'a pas un certain mot devant lui.

Par exemple, j'ai un fichier texte qui contient une intrigue d'un film et je veux remplacer toutes les occurrences du nom de famille d'un personnage par leur prénom, mais seulement si leur prénom ne vient pas immédiatement avant leur nom de famille.

Un exemple de texte pourrait ressembler à ceci:

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

Je veux que ça ressemble à ceci:

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

Si je le fais sed 's/Smith/John/' file, j'aurais:

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

Le prénom qui précède le nom de famille sera toujours le même. Je n'ai pas à gérer John Smithet Frank Smith. J'ai juste besoin d'un moyen de faire correspondre Smithcelui qui ne l'a pas Johnprécédé.

Ce serait facile avec n'importe quelle langue où les expressions régulières sont capables de regarder derrière. Bien sûr, Perl est le premier sur la liste:

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

Le point faible est d'avoir plus d'un caractère non-mot entre «John» et «Smith». Malheureusement, un quantificateur tel que +for \Wsoulèverait l'erreur «Lookbehind de longueur variable non implémenté».

EDIT .. re votre commentaire .. Voici un nouveau script qui ne se préoccupe pas (par exemple.) De William Smith. Il obscurcit temporairement les motifs qu'il garde comme Smith (inchangé).

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

Si vous êtes préoccupé par M. Mr Mme ... alors cela fonctionne.

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

Vous pouvez répondre à William en ajoutant son nom à la liste ou , par exemple.
sed -r 's/\<(William|John|...

Ceci est le script d'origine

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

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

Le () capturera le non-prénom avant un nom de famille, donc ils sont rétro-réfutés dans le remplacement.

Éditer

@ manatwork, gilles

Vous avez raison. Que diriez-vous

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

Cela semble faire l'affaire.