Цикл выполнения СЭД с / РЕГЭКСП / ЗАМЕНА / г

14

Почему echo ,,, |sed s':\(,\)\(,\):\1*\2:'gуступает " ,*,,", а не " ,*,*,"? Другими словами: почему, несмотря на флаг "g", sed не вставляет ' *' между одной парой запятых?

sed regular-expression user3143179
источник

Ответы:

14

Потому что с двумя ,s (,\)\(,\), вы уже сопоставили первые два ,s, и шаблон Regex, сопоставленный до сих пор, не будет возвращаться для остальной части строки. Теперь остался только один, который является последним, ,следовательно, он просто печатается так, как будто *между ними нет второго, последнего.

Если у вас есть другой ,вход, вы получите желаемый (глобальный g) ответ:

% echo ,,,, | sed s':\(,\)\(,\):\1*\2:'g
,*,,*,
heemayl
источник
Что за странная цитата? (Зачем уходить sи gвыходить из кавычек?)
GnP
@ GNP Ха-ха, это унаследовано от ОП.
Heemayl
илиecho ,,,,, |sed s':\(,\)\(,\):\1*:’g
njboot
8

На вопрос почему @heemayl уже ответил

Обходной путь sed(здесь предполагается GNU sed) - рекурсивный цикл, пока найдено совпадение

$ echo ,,, | sed -E ':a s/(,)(,)/\1*\2/ ; ta'
,*,*,

$ echo ,,,, | sed -E ':a s/(,)(,)/\1*\2/ ; ta'
,*,*,*,

POSIXly:

$ echo ,,,, | sed -e :a -e 's/\(,\)\(,\)/\1*\2/; ta'
,*,*,*,

Или с perl

$ echo ,,, | perl -pe 's/,\K(?=,)/*/g'
,*,*,

$ echo ,,,, | perl -pe 's/,\K(?=,)/*/g'
,*,*,*,
Sundeep
источник