Regex & Sed / Perl: відповідне слово, якому НЕ передує інше слово

Я хотів би використати 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."

Слабка сторона полягає в тому, що між "Джоном" і "Смітом" є не один несловесний символ. На жаль, кількісний показник, подібний +до, \Wпризведе до помилки "Перегляд змінної довжини позаду не реалізований".

EDIT .. знову ваш коментар .. Ось новий сценарій, який не стосується себе (напр.) Вільяма Сміта. Він тимчасово обтяжує візерунки, які він зберігає як Сміт (без змін).

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'

Ви можете задовольнити Вільяма , додавши його ім’я до списку або , наприклад,
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, gilles

Ти маєш рацію. Як на рахунок

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

Це, здається, робить трюк.