正则表达式和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."

弱点是在“约翰”和“史密斯”之间有多个非单词字符。不幸的是，像+for \W这样的量词会引发“可变长度后方未实现”错误。

编辑 ..发表您的评论。.这是一个新脚本，它本身与（William Smith）无关。它会暂时混淆保持为Smith（不变）的模式。

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

如果您担心Mrs Mrs太太，那么这可行。

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

您可以通过在或列表中添加他的名字来迎合William，例如。
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'

（）将在姓氏之前捕获非姓氏，因此在替换中将它们反向引用。

编辑

@manatwork，吉尔

你是对的。怎么样

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

这似乎可以解决问题。