Perl регулярное выражение для соответствия, но только для замены в блоках

Question

Это такой глупый вопрос - но я рисую пустой! У меня есть тестовая строка:

Foo|||bar||something|whatever

Мне нужно заменить || на |EMPTY_STRING| для каждого экземпляра.

Я делаю:

s/\Q||/|EMPTY_STRING|/g;

Проблема в том, что это преобразует его в:

Foo|EMPTY_STRING||bar|EMPTY_STRING|something|whatever

Обратите внимание на || там. Я, должно быть, упускаю какую-то глупость. Что это?

Answer 1

Вы можете использовать поиск в своем регулярном выражении:

s='Foo|||bar||something|whatever'

perl -pe 's/(?<=\|)(?=\|)/EMPTY_STRING/g' <<< "$s"

Foo|EMPTY_STRING|EMPTY_STRING|bar|EMPTY_STRING|something|whatever

Подробности RegEx:

• (?<=\|) : Lookbehind, чтобы утверждать, что у нас | позади текущей позиции
• (?=\|): Lookahead, чтобы утверждать, что у нас | впереди текущей позиции