como substituir as últimas n ocorrências de string usando sed

A maneira mais simples de alterar as três últimas instâncias de uma string que corresponde a um padrão específico é reverter cada linha de entrada e substituir a string invertida:

$ echo 'this OLD is OLD OLD OLD!' | rev | sed -e 's/DLO/WEN/' -e 's/DLO/WEN/' -e 's/DLO/WEN/' | rev
this OLD is NEW NEW NEW!

Pode haver maneiras melhores de fazer isso se o formato específico das linhas relevantes for conhecido. Por exemplo, na string de teste que uso acima, poderíamos simplesmente ter substituído OLD OLD OLDpor NEW NEW NEW.

Observe também que, como as expressões regulares são aplicadas da esquerda para a direita, a substituição da string invertida pode exigir um padrão diferente da reversão ingênua da expressão original. Como exemplo, considere que a substituição das duas primeiras letras em abab, quando invertida, deve substituir as duas últimas letras em baba.

A inversão de uma linha pode ser feita sedassim, usando @como um caractere pivô para dividir a string em uma parte não invertida e uma parte invertida:

:loop
s/^\([^@]\)\([^@]*\)@\{0,1\}\(.*\)/\2@\1\3/
t loop
s/@//

Uma abordagem poderia ser:

sed '
  # replace *all* OLDs with newline:
  s/OLD/\
/g
  :1
    # replace one newline back to a OLD as long as it is
    # followed by at least 3 newlines, relying on the fact
    # that the first .* will match greedily as much as possible.
    s/\(.*\)\n\(.*\n.*\n.*\n\)/\1OLD\2/

    # repeat as long as the above was successful:
  t1
  # replace the remaining newlines with NEW:
  s/\n/NEW/g'

Com perl, fazendo a substituição duas vezes, uma vez e sem alteração para registrar o número de ocorrências, e uma segunda vez para substituir apenas a (n-2)-ésima ^pela n- ^ésima ocorrência:

perl -pe '$n = s/OLD/$&/g; s/OLD/--$n < 3 ? "NEW" : $&/ge'

Para strings arbitrárias e número máximo de ocorrências:

perl -spe '$n = s/\Q$old\E/$&/g;
           s/\Q$old\E/--$n < $max ? $new : $&/ge
          ' -- -old=OLD -new=NEW -max=3

s/OLD/$&/gsubstitui todas as ocorrências por si mesmas ( $&contém o que foi correspondido como sed's &) e retorna o número de substituições. Alternativamente, você pode usar s/OLD\K//gwhich substitui o Nothing After OLDpor Nothing , \Ksendo usado para marcar o início do que está sendo substituído.

Usando GNU awk para patsplit():

$ echo 'OLDOLDOLDOLDOLD' |
    awk '
        {
            nf = patsplit($0,f,"OLD",s)
            out = s[0]
            for ( i=1; i<=nf; i++ ) {
                out = out ( i>(nf-3) ? "NEW" : f[i] ) s[i]
            }
            print out
        }
    '
OLDOLDNEWNEWNEW

Você pode fazer o mesmo em qualquer awk com um loop while (match())ou while(index())e substr()s, é apenas um pouco mais de código para escrever. O acima trata OLDcomo um regexp, se não é isso que você deseja, use um while(index())loop ou escreva código para escapar de qualquer metachars OLDque possa conter, por exemplo, em qualquer awk usando strings literais:

echo 'OLDOLDOLDOLDOLD' |
    awk -v old="OLD" -v new="NEW" -v cnt=3 '
        {
            nf = strsplit($0,f,old,s)
            out = s[0]
            for ( i=1; i<=nf; i++ ) {
                out = out ( i>(nf-cnt) ? "NEW" : f[i] ) s[i]
            }
            print out
        }

        function strsplit(str,flds,tgt,seps,    pos,cnt,lgth)    {
            lgth = length(tgt)
            while ( pos = index(str,tgt) ) {
                seps[cnt++] = substr(str,1,pos-1)
                flds[cnt]   = substr(str,pos,lgth)
                str         = substr(str,pos+lgth)
            }
            seps[cnt] = str
            return cnt+0
        }
    '
OLDOLDNEWNEWNEW

Embora não exista uma opção sed direta para esta operação, aqui está uma abordagem prática: substitua a última ocorrência da string por:

$ sed -E 's/(.*)OLD/\1NEW/' input_file

Como n geralmente é pequeno, você pode simplesmente canalizar isso para o mesmo comando n vezes:

$ sed -E 's/(.*)OLD/\1NEW/' input_file | sed -E 's/(.*)OLD/\1NEW/' | sed -E 's/(.*)OLD/\1NEW/'

ou mais simplesmente repita este comando n vezes:

$ sed -Ei 's/(.*)OLD/\1NEW/' input_file

(observe que neste caso o input_file muda)