SED remplace quelques premières occurrences (et plages) de motif

Qu'en est-il d'un seul AWK? ":

$ 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

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

$ 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

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

Peut-être y a-t-il une option pour changer les plages d'occurrence comme 3-5, 6-12

AWK:

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

Exécution de test sur le fichier d'entrée nouvellement fourni:

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

La réponse a été fournie ici par mikeserv . REMARQUE : si vous souhaitez traiter une plage, vous devez utiliser la limite maximale, car elle traitera autant de correspondances que possible sans générer d'exceptions / erreurs.

GNU sed: p>

s/1/\
&/g

POSIX sed:

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"

Voir le démo en ligne sed .

Explication originale (notez qu'ici, 1 est remplacé par 2 , vous pouvez utiliser tout autre modèle):

Là, j'utilise deux techniques notables. En premier lieu, chaque l'occurrence de 1 sur une ligne est remplacée par \ n1 . De cette façon, comme je faites ensuite les remplacements récursifs, je peux être sûr de ne pas remplacer le occurrence deux fois si ma chaîne de remplacement contient mon remplacement chaîne. Par exemple, si je remplace he par hey cela fonctionnera toujours.

Je fais ceci comme:

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'

Deuxièmement, je compte les remplacements en ajoutant un caractère à h ancien espace pour chaque occurrence. Une fois que j'atteins trois, plus rien ne se produit. Si vous appliquez cela à vos données et remplacez le \ {3 \} par le total les remplacements que vous désirez et les adresses / \ n1 / à ce que vous voulez dire pour remplacer, vous devez en remplacer autant que vous le souhaitez.

C'est une tâche complètement inappropriée pour sed car sed est pour faire de simples s / old / new / sur des chaînes individuelles, c'est tout . Avec n'importe quel awk dans n'importe quel shell sur chaque boîte UNIX:

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

et si vous avez besoin de le paramétrer:

$ 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 fix six" | \
sed -E ':r s/(^|(TEST )+)[^ ]*/\1TEST/;/^(TEST ){4}/!br'
TEST TEST TEST TEST fix six
Explanation:
:r label named r to branch back to
s/(^|(TEST )+)[^ ]*/\1TEST/; replacement that replaces just one occurrence of a non-TEST word, preceeded by either the start of the line or 1 or more TESTs
/^(TEST ){4}/!br' regex for what's wanted, followed by the !br to branch back to :r if it's not matched yet.
Clearly this is fragile.  It will loop infinitely if any lines don't have four words.  Might be GNU sed only.