Regex & Sed / Perl: Từ phù hợp mà trước đó không có từ khác

Tôi muốn sử dụng sedhoặc perlthay thế tất cả các lần xuất hiện của một từ không có từ nào đó trước từ đó.

Ví dụ: tôi có một tệp văn bản chứa cốt truyện của một bộ phim và tôi muốn thay thế tất cả các lần xuất hiện của tên nhân vật bằng tên của họ, nhưng chỉ khi tên của họ không xuất hiện ngay trước tên của họ.

Văn bản mẫu có thể trông như thế này:

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

Tôi muốn nó trông như thế này:

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

Nếu tôi chỉ làm sed 's/Smith/John/' file, thì tôi sẽ có:

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

Tên đầu tiên xuất hiện trước tên cuối cùng sẽ luôn giống nhau. Tôi không phải đối phó với John Smithvà Frank Smith. Tôi chỉ cần một cách để khớp với Smithcái không có Johntrước nó.

Sẽ dễ dàng với bất kỳ ngôn ngữ nào trong đó các biểu thức chính quy có khả năng tìm kiếm. Tất nhiên, Perl là người đầu tiên trong danh sách:

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

Điểm yếu là có nhiều hơn một ký tự không lời giữa dòng chữ John John và cây Smith Smith. Thật không may một lượng hóa như +cho \Wsẽ tăng “chiều dài biến lookbehind không được thực hiện” lỗi.

EDIT .. là nhận xét của bạn .. Đây là một kịch bản mới không liên quan đến chính nó (ví dụ:) William Smith. Nó tạm thời làm xáo trộn các mẫu mà nó giữ là Smith (không thay đổi).

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

Nếu bạn quan tâm đến ông Mr Mr ... thì nó sẽ hoạt động.

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

Bạn có thể phục vụ cho William bằng cách thêm tên của anh ấy vào danh sách hoặc , ví dụ.
sed -r 's/\<(William|John|...

Đây là kịch bản ban đầu

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

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

() Sẽ nắm bắt Tên không phải trước Tên cuối cùng, vì vậy chúng sẽ được sao lưu trong thay thế.

Biên tập

@ manatwork, gilles

Bạn đúng. Làm thế nào về

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

Điều này dường như để làm các mẹo.