Como grep uma seção de um arquivo no shell bash

Question

Como posso "grep" as linhas entre uma ocorrência de alguma string1 e a (Nth) ocorrência de alguma string2.

por exemplo,

se o arquivo tiver linha:

Um
B
C
D
E
F
G
B
C
E
Q

Eu quero colocar as linhas em negrito (aquelas que começam com um B e terminam com um E).

Isso pode ser feito usando o grep? ou alguma outra ferramenta de linha de comando do Unix?

    

Answer 1

grep não é adequado para esta tarefa, você precisa usar uma ferramenta "para cima":

sed -n '/^B/,/^E/p' infile

Saída:

B
C
D
E
B
C
E

Com relação à enésima exigência, acho que é mais fácil se você avançar novamente uma ferramenta "up", a saber awk:

awk '/^B/ { f = 1; n++ } f && n == wanted; /^E/ { f = 0 }' wanted=2 infile

Saída:

B
C
E

O sinalizador f será definido quando /^B/ for encontrado e desfeito quando /^E/ ocorrer, da mesma forma que a notação sed funciona. n mantém um registro de quantos blocos passaram e quando f == 1 && n == wanted é verdadeiro, o bloco padrão será executado ( { print $0 } ).

    

Answer 2

@ O comando sed do Thor não pode ser derrotado, mas com o seguinte script perl eu tento endereçar a parte da sua pergunta entre parênteses: "... a (Nth) ocorrência ...".

Uso:

./script <start-regex> <end-regex> [N]

Exemplos com o arquivo em sua pergunta:

$ ./script "B" "E" < examplefile
B
C
D
E
B
C
E

$ ./script "B" "E" 2 < examplefile
B
C
D
E
F
G
B
C
E

Não há nenhuma verificação de erro ou qualquer e o script não é ganancioso, ou seja, de A B C D E E F only B C D E será arredondado com N = 1.

#!/usr/bin/perl

if ($ARGV[2] != "") { $n = $ARGV[2] } else { $n = 1 }
$begin_str = $ARGV[0];
$end_str = $ARGV[1];

while(<STDIN>) {
  if($_ =~ $begin_str) { $flag=1 }             # beginning of match, set flag    
  if($_ =~ $end_str && $flag eq 1) { $i++ }    # i-th occurence of end string

  if($i eq $n) {                               # end of match after n occurences of end string
    $flag=2;
    $i=0; 
  }

  if ($flag ge 1) {                            # append currrent line to matching part
    $out.=$_;
  }

  if($flag eq 2) {                             # after detection of end of match, print complete match
    print $out;
    # print "---\n";                           # separator after a match
    $out="";
    $flag=0;
  }

}