Regex＆Sed / Perl：ISNの前に別の単語がない単語に一致

前に特定の単語がない単語をすべて使用sedまたはperl置換したい。

たとえば、映画のプロットが含まれているテキストファイルがあり、出現するすべてのキャラクターの姓を名に置き換えたいのは、姓が姓の直前にない場合のみです。

サンプルテキストは次のようになります。

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

私はそれをこのように見せたいです：

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

私がちょうどするならsed 's/Smith/John/' file、私は持っているでしょう：

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

姓の前にある名は常に同じになります。私はに対処する必要はありませんJohn SmithとFrank Smith。私SmithはJohnそれに先行していないマッチする方法が必要です。

正規表現が後ろを見ることができる言語であれば、簡単です。もちろん、Perlはリストの最初です。

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

弱点は、「John」と「Smith」の間に単語以外の文字が複数あることです。残念ながら+forのような数量詞\Wは「可変長後読みが実装されていません」というエラーを発生させます。

EDIT .. re your comment ..これは、（たとえば）William Smithに関係しない新しいスクリプトです。スミス（変更なし）として保持するパターンを一時的に難読化します。

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

ミセス夫人について心配している場合...これはうまくいきます。

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

ウィリアムの名前をorリストに追加することで、ウィリアムに対応できます。
sed -r 's/\<(William|John|...

これは元のスクリプトです

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

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

（）は、LastNameの前に非Firstnameをキャプチャするので、それらは置換で後方参照されます。

編集

@ manatwork、gilles

あなたが正しい。どう？

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

これでうまくいくようです。