SED заменяет несколько первых вхождений (и диапазонов) шаблона

Как насчет одного AWK:

awk '{for(i=1;i<=NF;i++) if(i<5){$i="TEST"}; print}'

Тестовый забег:

$ echo one two three four five six seven | awk '{for(i=1;i<=NF;i++) if(i<5){$i="TEST"}; print}'
TEST TEST TEST TEST five six seven

Это решение короткое, удобочитаемое и поддерживаемое. Если это вас не устраивает, пожалуйста, добавьте некоторые подробности о вашей конкретной проблеме.

Эквивалентное решение Perl:

perl -pe 's/\S+/$i++<4?"TEST":$&/ge'

Тестовый забег:

$ echo one two three four five six seven | perl -pe 's/\S+/$i++<4?"TEST":$&/ge'
TEST TEST TEST TEST five six seven

возможно, есть возможность изменить диапазоны встречаемости, такие как 3-5, 6-12

АВК:

awk '{for(i=3;i<6;i++)$i="TEST";print}'

Тестовый запуск нового входного файла:

$ awk '{for(i=3;i<6;i++)$i="TEST";print}' input
one two TEST TEST TEST six seven
eight nine TEST TEST TEST thirteen fourteen
fifteen sixteen TEST TEST TEST twenty twenty-one

Перл:

perl -pe 's/\S+/++$c~~[3..5]?"TEST":$&/ge'

Тестовый запуск нового входного файла:

$ perl -pe '$c=0;s/\S+/++$c~~[3..5]?"TEST":$&/ge' input
Smartmatch is experimental at -e line 1. <== This is a warning that goes to STDERR
one two TEST TEST TEST six seven
eight nine TEST TEST TEST thirteen fourteen
fifteen sixteen TEST TEST TEST twenty twenty-one

Ответ предоставлен здесь пользователем mikeserv. ПРИМЕЧАНИЕ: если вы хотите обработать диапазон, вам нужно использовать максимальную границу, так как будет обработано столько совпадений, сколько возможно, без каких-либо исключений/ошибок.

GNU-сед:

echo 'one two three four five six seven' | \
  sed 's/[^[:space:]]*/\n&/g;:t;/\n/{x;/.\{4\}/!{s/$/./;x;s/\n[^[:space:]]*/TEST/;bt};x};s/\n//g'

POSIX-сед:

nl='
';
echo 'one two three four five six seven' | sed "s/[^[:space:]]*/\\$nl&/g;:t${nl}/\n/{x;/.\{4\}/!{${nl}s/$/./;x;s/\n[^[:space:]]*/TEST/;bt$nl};x$nl};s/\n//g"

См. онлайн-демонстрацию sed.

Оригинальное объяснение (обратите внимание, что здесь 1 заменено на 2, вы можете использовать любые другие шаблоны):

Там я использую два примечательных метода. Во-первых, каждое вхождение 1 в строке заменяется на \n1. Таким образом, когда я выполняю рекурсивные замены, я могу быть уверен, что не заменю вхождение дважды, если моя строка замены содержит мою строку замены. Например, если я заменю he на hey, он все равно будет работать.

Я делаю это так:

s/1/\
&/g

Во-вторых, я подсчитываю замены, добавляя символ в пространство hold для каждого вхождения. Как только я достигну трех, больше не произойдет. Если вы примените это к своим данным и измените \{3\} на общее количество замен, которые вы хотите, а адреса /\n1/ на все, что вы хотите заменить, вы должны заменить столько, сколько пожелаете.

Это совершенно неподходящая задача для sed, так как sed предназначен для выполнения простых операций s/old/new/ над отдельными строками, это все. С любым awk в любой оболочке на каждой машине UNIX:

$ echo one two three four five six seven | awk '{for (i=1; i<=4; i++) $i="TEST"}1'
TEST TEST TEST TEST five six seven

$ echo one two three four five six seven | awk '{for (i=3; i<=5; i++) $i="TEST"}1'
one two TEST TEST TEST six seven

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

echo one two three four five six seven |
    awk -v beg=3 -v end=5 '{for (i=beg; i<=end; i++) $i="TEST"}1'
one two TEST TEST TEST six seven

$ echo "one two three four fix six" | \
sed -E ':r s/(^|(TEST )+)[^ ]*/\1TEST/;/^(TEST ){4}/!br'
TEST TEST TEST TEST fix six

Объяснение:

• :r метка с именем r, к которой следует вернуться
• s/(^|(TEST )+)[^ ]*/\1TEST/; замена, которая заменяет только одно вхождение слова, отличного от TEST, которому предшествует либо начало строки, либо 1 или более TEST
• /^(TEST ){4}/!br' регулярное выражение для желаемого, за которым следует !br для перехода обратно к :r, если оно еще не совпало.

Понятно, что это хрупко. Это будет бесконечный цикл, если в каких-либо строках нет четырех слов. Может быть только GNU sed.