Início / unix / Perguntas / 761771
Accepted
Sadi
Asked: 2023-11-18 22:20:21 +0800 CST

Exclua as linhas abaixo, excluindo a linha com padrão de correspondência

  • 772

Pode-se usar sed '/pattern/Q'ou sed '/pattern/,$d'para excluir linhas abaixo de um padrão de correspondência, mas também exclui a linha que contém o padrão de correspondência.

Como excluir a linha que contém o padrão de correspondência e excluir apenas as linhas abaixo dela?

shell-script

5 respostas

  1. Best Answer

    Você está complicando demais isso usando Q, que é um dos comandos específicos do GNU sed :

    Q [código de saída]

    Este comando aceita apenas um endereço.

    Este comando é igual a q, mas não imprimirá o conteúdo do espaço padrão. Assim como q, ele fornece a capacidade de retornar um código de saída ao chamador.

    Se você não deseja esse comportamento especial (ou seja, deseja imprimir o conteúdo do espaço padrão correspondente antes de sair), use o qcomando normal:

    sed '/pattern/q'
    • 2

  2. Isso deve servir

    sed -n '/pattern/{p;q};p'

    A -nopção diz sedpara não imprimir por padrão.

    Diz {p;q}que se o padrão for observado, imprima a linha e saia.

    Esta ;pé a ação padrão quando nenhuma correspondência foi encontrada ainda: imprimir.

    • 1

  3. Usando awk:

    $ awk 'NR==1,/pattern/'

    O comando a seguir não imprimiria nada se patternnão fosse encontrado.

    $ awk '{a = a $0 ORS}/pattern/{printf "%s", a}'

    Usando pcregrep:

    $ pcregrep -M "(.*\n)*.*pattern"
    • 1

  4. awk é uma escolha melhor que sed para tarefas como esta por simplicidade, clareza e portabilidade, por exemplo, para excluir todas as linhas abaixo de alguma linha que corresponda a uma regexp (a 3neste caso):

    $ seq 10 | awk '{print} /3/{exit}'
1
2
3

    ou se você também deseja excluir a linha correspondente, mova para onde o regexp é testado antes, em vez de depois da impressão:

    $ seq 10 | awk '/3/{exit} {print}'
1
2

    ou podemos excluir as 4 linhas após o 3 aparecer:

    $ seq 10 | awk 'NR>n{print} /3/{n=NR+4}'
1
2
3
8
9
10

    ou, alternativamente, usando o idioma "f" de print-with-sed-or-awk-a-line-following-a-matching-pattern :

    $ seq 10 | awk 'c&&c--{next} /3/{c=4} {print}'
1
2
3
8
9
10

    Todos esses comandos funcionarão usando qualquer awk em todas as caixas Unix e é trivial fazer qualquer coisa semelhante que você queira fazer.

    • 1

  5. Usando Perl :

    ~$ seq 10 | perl -pe 'last if /3/'
1
2

#OR:

~$ seq 10 | raku -ne '/3/ ? last : print $_;'
1
2

    Usando Raku (anteriormente conhecido como Perl_6):

    ~$ seq 10 | perl -pe 'last if /3/'
1
2

#OR:

~$ seq 10 | raku -ne '/3/ ?? (last) !! (put $_);'
1
2

    Perl e Raku emprestam muitas das convenções de sinalização de linha de comando de sede awk. Acima dos -pesinalizadores, execute o código em linha sobre a entrada com impressão automática; os -nesinalizadores executam o código em linha sobre a entrada sem impressão automática. Em todas as quatro respostas acima lasté usado sair do loop linewise. Existem pequenas diferenças entre os operadores ternários de Perl e Raku, principalmente porque Raku implanta dois :pontos para outros aspectos da linguagem.

    https://perldoc.perl.org
    https://docs.raku.org

    • 0

relate perguntas