Início / unix / Perguntas / 762047
Accepted
RonJohn
Asked: 2023-11-22 06:39:49 +0800 CST

Encontrar todas as linhas entre dois padrões, EXCLUSIVO do segundo padrão?

  • 772

Considere que tenho o arquivo listado abaixo. Preciso selecionar todas as linhas de cada instância do padrão regex antesWord A do padrão regex .Word D

Word A
Word B
Word C
Word D
Word E
Word F
Word G
Word A
Word H
Word I
Word D
Word J
Word A
Word K
Word D
Word L
Word M
Word A
Word D

Observe o número variável de linhas entre Ae D. Às vezes, Dé a próxima linha. Aqui está o que preciso que seja a saída:

Word A
Word B
Word C
Word A
Word H
Word I
Word A
Word K
Word A

Pode ser feito com awk, perl, python ou sed. Não importa, desde que esteja instalado no servidor RHEL6 onde o arquivo está.

awk

6 respostas

  1. Usando AWK:

    awk '/Word A/ { m = 1 } /Word D/ { m = 0 } m'
    • 4

  2. Aqui está uma awksolução

    awk \
  -vstart='Word A' \
  -vend='Word D' \
  '{
     if ($0==end  ) {flag=0;next};
     if ($0==start) {flag=1};
     if (flag==1) {print $0};
  }'

    Apenas uma pequena alteração necessária para o tratamento de regex

    awk \
  -vstart='Word[ ]A' \
  -vend='Word[ ]D' \
  '{
     if ($0 ~ end  ) {flag=0;next};
     if ($0 ~ start) {flag=1};
     if (flag==1) {print $0};
  }'
    • 2
  3. Best Answer

    Somente GNU sed:

    sed '/Word A/!d;:1;n;/Word D/d;b1' file

    Em casos mais complexos - blocos inválidos:

    sed -n '/Word A/!b;:1;/Word A/h;n;/Word D/{g;p;d};H;b1' file
    • 1

  4. A macro do TXR Lisp awksuporta isso diretamente; o rng operador (intervalo) tem nove variantes para diversas maneiras de excluir registros do início ou do final de um intervalo:

    $ txr -e '(awk ((rng- #/Word A/ #/Word D/)))' data
Word A
Word B
Word C
Word A
Word H
Word I
Word A
Word K
Word A

    Além disso, ao contrário do operador range do Awk, ele combina com outros operadores. Por exemplo, suponha que você queira imprimir registros que estão simultaneamente em um intervalo footo e em um intervalo to , não importando como esses tipos de intervalos se sobrepõem nos dados:barstartend

    (awk ((and (rng #/foo/ #/bar/)
           (rng #/start/ #/end/))))
    • 1

  5. Usando awk:

    $ awk '
    $0 == "Word A" { f=1; rec=$0; next }
    { if ( $0 == "Word D" ) { print rec; f=0 } }
    f{rec = rec ORS $0}'

# For regex pattern
$ awk '          
    (/Word A/ && !/Word D/) { f=1; rec=$0; next }
    (/Word D/ && rec){ print rec; f=0; rec="" }
    f{rec = rec ORS $0}
'

    Se Word Dcorresponder Word Asempre, o seguinte comando pode ser usado.

    $ awk '/Word A/,/Word D/ { if (!/Word D/) print }'
    • 0

  6. sedpermite fazer aritmética nas especificações on-line:

    sed -n -e '/Word A/,/Word D/-1p' The_File

    Ler man sed.

    • -2

relate perguntas