Início / unix / Perguntas / 674433
Accepted
Garnet
Asked: 2021-10-23 13:54:47 +0800 CST

sed: como adicionar texto às primeiras x ocorrências

  • 772

Estou tentando adicionar texto ao final de uma linha nas primeiras x vezes que ela ocorre. Eu sei como fazer isso globalmente e para a ocorrência n. Não consigo descobrir como fazê-lo para as primeiras enésimas ocorrências. Um exemplo seria um arquivo text.txt que contém:

This is a test
junk
This is a test
More junk
This is a test
This is a test
This is a test

E, eu quero adicionar um '.' no final das três primeiras vezes que "Isto é um teste" ocorre. A saída que estou tentando obter é:

This is a test.
junk
This is a test.
More junk
This is a test.
This is a test
This is a test
sed

3 respostas

  1. Best Answer

    This.*testé o regex correto. O asterisco significa "0 ou mais vezes o caractere anterior", portanto This*test, não corresponderia a nenhuma de suas linhas.

    Agora, Sed é ruim em Aritmética. Para algo elegante, sugiro o Awk:

    awk '/This.*test/{c++};{print $0 (c<4 ? "." : "")}' file

    Acho que basta dizer que c, como qualquer variável não definida no Awk, é tratada como zero, mas me avise se precisar de mais esclarecimentos.

    • 4

  2. Outra variante que evita fazer a correspondência regexp depois que todas as 3 ocorrências já foram encontradas:

    awk -v n=3 'n && /This is a test/ {n--; $0 = $0 "."}; {print}'

    Com sedespecificamente, você poderia fazer algo como:

    sed '
  1 {
    x
    s/^/.../
    x
  }
  /This is a test/ {
    s/$/./
    x
    s/.//
    /./ {
      x
      b
    }
    g
    :1
    $! {
      n
      b 1
    }
  }'

    Onde rastreamos o número de .s para anexar como número correspondente de .s no espaço de retenção.

    Escusado será dizer que sedé muito menos apropriado para este tipo de tarefa. Se a razão para querer sedé a -iextensão para edição in-loco encontrada em algumas implementações (emprestadas de perl), observe que a implementação GNU de awktambém pode fazer isso com -i inplace, ou você pode usar a coisa real:

    perl -lpi -e '
  if ($n < 3 && /This is a test/) {
    $n++;
    $_ .= ".";
  }' your-file

    Se você quiser adicionar um .após cada ocorrência de This is a testem oposição a todas as linhas que contenham pelo menos uma ocorrência de This is a test, perltambém seria a melhor escolha:

    perl -pi -e 's{This is a test\K}{$n++ < 3 ? "." : ""}ge' your-file
    • 4

  3. Com perlnós poderíamos fazer como mostrado

    perl -lpe '
  $_ = $k == 3 ? next : s/This is a test(?{$k++}).*\K/./r;
' file

    Os elefantes também podem dançar, embora com passos simples. Usando GNU seda escrita em seu modo regex estendido -E , podemos armazenar a contagem como número de novas linhas na espera.

    K=3
sed -Ee '
  /This is a test/!b
  G
  /(.*\n){'"$K"'}.*\n/!{
    s/\n+/./p;z;H;d
  }
  s/\n+//
  :a;n;ba
' file
    • 0

relate perguntas