Regex i Sed / Perl: Dopasuj słowo, które NIE JEST poprzedzone innym słowem

Chciałbym użyć sedlub perlzastąpić wszystkie wystąpienia słowa, które nie ma określonego słowa przed nim.

Na przykład mam plik tekstowy, który zawiera fabułę filmu i chcę zastąpić wszystkie wystąpienia nazwiska postaci ich imieniem, ale tylko wtedy, gdy ich imię nie pojawi się bezpośrednio przed imieniem.

Przykładowy tekst może wyglądać następująco:

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

Chcę, aby wyglądało to tak:

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

Gdybym tak zrobił sed 's/Smith/John/' file, miałbym:

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

Imię poprzedzające nazwisko zawsze będzie takie samo. Nie mam do czynienia z John Smithi Frank Smith. Potrzebuję tylko sposobu dopasowania Smith, który nie ma Johngo wcześniej.

Byłoby łatwo w każdym języku, w którym wyrażenia regularne mogłyby wyglądać za sobą. Oczywiście Perl jest pierwszym na liście:

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

Słabym punktem jest posiadanie więcej niż jednego nie-słownego znaku między „John” i „Smith”. Niestety kwantyfikator jak +dla \Wpodniosłoby „zmiennej długości nie lookbehind realizowane” błąd.

EDYTUJ … ponownie twój komentarz .. Oto nowy skrypt, który nie dotyczy (np.) Williama Smitha. Tymczasowo zaciemnia wzory, które zachowuje jako Smith (niezmieniony).

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

Jeśli martwisz się o pana Pana ... to działa.

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

Możesz zaspokoić Williama , dodając jego nazwisko do listy lub , np.
sed -r 's/\<(William|John|...

To jest oryginalny skrypt

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

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

() Przechwyci nie-imię przed LastName, więc zostaną zastąpione ponownie.

Edytować

@ manatwork, gilles

Masz rację. Co powiesz na

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

To wydaje się załatwić sprawę.