Regex & Sed / Perl: Başında başka bir kelime bulunmayan kelimeyi eşleştir

Önünde belirli bir kelimesi olmayan bir kelimenin tüm tekrarlarını kullanmak sedveya perldeğiştirmek istiyorum .

Örneğin, bir filmin çizimini içeren bir metin dosyam var ve bir karakterin soyadının tüm tekrarlarını ilk adlarıyla değiştirmek istiyorum, ancak yalnızca adlarının soyadından hemen önce gelmemesi durumunda.

Örnek metin şöyle görünebilir:

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

Bunun gibi görünmesini istiyorum:

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

Sadece yaparsam sed 's/Smith/John/' file, o zaman olurdu:

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

Soyadından önce gelen ilk ad her zaman aynı olacaktır. Ben uğraşmak zorunda değilsiniz John Smithve Frank Smith. Bundan önce olmayan bir eşleşme yoluna ihtiyacım Smithvar John.

Düzenli ifadelerin arkasına bakabildiği herhangi bir dilde kolay olurdu. Tabii ki, Perl listede ilk:

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

Zayıf nokta “John” ve “Smith” arasında birden fazla kelime olmayan karaktere sahip olmaktır. Maalesef böyle bir nicelik +için \Wgündeme getireceğini hatası “Değişken uzunlukta uygulanmadı Geriye İlerleme”.

EDIT .. yorumunuzu yeniden .. İşte William Smith hakkında kendini ilgilendirmeyen yeni bir komut dosyası. Smith (değişmeden) olarak tuttuğu kalıpları geçici olarak gizler .

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

Bay Bay Bayan hakkında endişeleriniz varsa ... o zaman bu işe yarar.

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

William'a adını veya listesine ekleyerek hitap edebilirsiniz , örn.
sed -r 's/\<(William|John|...

Bu orjinal senaryo

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

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

(), Soyadı olmayan bir LastName'den önce yakalar, böylece yedekte geri gönderilirler.

Düzenle

@ Manatwork, Gilles

Haklısın. Peki ya

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

Bu hile gibi görünüyor.