матч Perl перекрывающихся последовательностей с условием

Question

Я пытаюсь заменить набор шаблонов с пробелами до и после их использования следующих регулярных выражений

s/ $pattern/replacement /g 

Но это только преобразует первый из двух моделей в линии ($pattern $pattern => replacement $pattern)

Я попытался s/(? $pattern)/ replacement /g

, но это также не работает. Плюс $pattern состоит из меньших узоров, которые я не хочу заменять, когда более крупный узор уже присутствует.

Пример: Перед заменой, строка содержит ab ab. После

s/ ab/alphabeta/

Я получаю alphabeta ab

Answer 1

$_ = " foo foo foo "; 
s/ foo/bar /g; 
say; # " bar foo bar " 

Проблема здесь в том, что когда первый foo матчей он потребляет пространства вокруг него, поэтому, когда следующий матч продолжается, нет ведущего места для его соответствия перед следующим foo.

Чтобы решить эту проблему, вы можете использовать обратные пути, чтобы не использовать пробелы. Например:

s/(?<=)foo(?=)/bar/g; 
say; # " bar bar bar " 

Или в вашем случае:

s/(?<=)$pattern(?=)/replacement/g 

Answer 2

В первой замене, пространство между паттернами является частью совпавшей строки, поэтому следующий соответствие начинается после пространства. Вы можете использовать нулевую ширину смотреть вперед утверждение, чтобы сделать положение не продвигалось по пространству:

my $s = ' a a a a a '; 
$s =~ s/ a(?=)/ X /g; 
print $s; 

Выход:

X X X X X