Início / unix / Perguntas / 782170
Accepted
netdis
Asked: 2024-08-19 22:08:14 +0800 CST

Mova a string de correspondência de linha para o topo do arquivo

  • 772

Precisa mover uma única linha com PRM:TRGpalavra-chave para o topo do arquivo usando sed

Conteúdo do arquivo:

FOOBAR:SCN:NO_TRG
FIZZBAR:SCN:NO_TRG
BEBAR:PRM:TRG

Resultado esperado:

BEBAR:PRM:TRG
FOOBAR:SCN:NO_TRG
FIZZBAR:SCN:NO_TRG
bash

5 respostas

  1. Best Answer

    Com o ededitor de linha, o comando

    /PRM:TRG/ m 0

    ... moveria a próxima linha correspondente à expressão regular PRM:TRGpara a primeira linha ( 0significando "após a linha zero"). "A próxima linha correspondente ..." significa que, quando o editor é iniciado, a primeira linha do arquivo corresponde à expressão regular fornecida.

    Para mover todas as linhas correspondentes para o topo do arquivo, você usaria o gcomando para executar o mcomando para cada linha correspondente:

    g/PRM:TRG/ m 0

    (Isso também funcionaria em Ex, Vi e Vim, mas não no Vi do BusyBox.)

    Na linha de comando, você poderia executar este segundo comando de edição assim:

    printf '%s\n' 'g/PRM:TRG/ m 0' ',p' 'Q' | ed -s file

    Os comandos extras ,pimprimem Qo buffer modificado na saída padrão e, em seguida, saem incondicionalmente do editor sem salvar. Substitua ,pe Qpor we qpara gravar silenciosamente o resultado de volta no arquivo original e sair.

    O usuário Shawn percebeu que isso inverteria a ordem das PRM:TRGlinhas e que você poderia contrariar isso movendo todas as linhas que não correspondem ao padrão para o final do arquivo com v/PRM:TRG/ m $.

    Outra maneira de corrigir isso é definir uma marca na primeira linha original com 1ka(a marca é a) e, em seguida, mover todas as linhas correspondentes para antes dessa linha com g/PRM:TRG/ m 'a-.

    Uma abordagem de 2 passagens usando grep: Faça com que todas as linhas correspondam PRM:TRGprimeiro e depois as que não correspondem.

    $ { grep 'PRM:TRG' file; grep -v 'PRM:TRG' file; }
BEBAR:PRM:TRG
FOOBAR:SCN:NO_TRG
FIZZBAR:SCN:NO_TRG

    Com sed: imprima cada linha correspondente PRM:TRGà medida que você as encontrar e armazene todas as outras linhas no espaço de espera. Quando você ficar sem linhas para ler, troque o espaço de espera e imprima-o (o scomando no final elimina a nova linha inicial no espaço de espera (que só estará lá se for Hadicionado algo a ele) e imprime se houver há alguma coisa lá).

    $ sed -n -e '/PRM:TRG/p' -e '//!H' -e '${x;s/\n//p;}' file
BEBAR:PRM:TRG
FOOBAR:SCN:NO_TRG
FIZZBAR:SCN:NO_TRG

    Uma tradução (mais ou menos) desse sedcomando em awk:

    awk '/PRM:TRG/ { print; next } { hold = hold ORS $0 } END { if (sub(ORS,"",hold)) print hold }' file

    Uma tradução mais próxima:

    awk '{ if (/PRM:TRG/) print; else hold = hold ORS $0 } END { if (sub(ORS,"",hold)) print hold }' file
    • 8

  2. Com perl:

    perl -ne 'if (/PRM:TRG/) {print} else {push @saved, $_}
          if (eof) {print for @saved}' your-file

    Adicione uma -iopção para editar o arquivo no local ou -i.backpara salvar o original com uma .backextensão antes de fazer isso.

    Você pode processar mais de um arquivo dessa maneira, mas precisará redefinir @savedentre cada um:

    perl -i -ne 'if (/PRM:TRG/) {print} else {push @saved, $_}
             if (eof) {print for @saved; @saved = ()}' file1 file2...
    • 3

  3. Se você tiver sed, também terá o awk - usando qualquer awk e uma abordagem de 2 passagens, apenas lendo uma linha por vez na memória:

    $ awk 'NR==FNR { if (/PRM:TRG/) { print; skip=FNR } next } FNR!=skip' file file
BEBAR:PRM:TRG
FOOBAR:SCN:NO_TRG
FIZZBAR:SCN:NO_TRG

    ou usando 1 passagem, mas salvando a entrada na linha de destino na memória:

    $ awk '!found{ if (/PRM:TRG/) { $0=$0 buf; found=1 } else { buf = buf ORS $0 } } found' file
BEBAR:PRM:TRG
FOOBAR:SCN:NO_TRG
FIZZBAR:SCN:NO_TRG
    • 2

  4. Usando Raku (anteriormente conhecido como Perl_6)

    ~$ raku -ne 'BEGIN my @non-match;  
             /PRM\:TRG/ ?? .put !! @non-match.push($_);  
             END  .put for @non-match;'  file

#OR:

~$ raku  -e 'my @non-match;  for lines() { 
             /PRM\:TRG/ ?? .put !! @non-match.push($_) };  
             .put for @non-match;'  file

    Acima estão as respostas escritas em Raku, um membro da família Perl de linguagens de programação. A primeira resposta usa -nesinalizadores de não impressão automática do Raku ( awkcomportamento semelhante). Em um BEGINbloco, um @non-matcharray é declarado. O corpo do loop usa o operador ternário Test ?? True !! False de Raku , que imediatamente elimina putas linhas correspondentes (as linhas não correspondentes são pushinseridas no @non-matcharray). Finalmente, em um ENDbloco, o @non-matcharray está fora put.

    (A segunda resposta acima é semelhante à primeira, mas usa lines()a rotina do Raku para ler as linhas. Nesse caso, apenas o -esinalizador é necessário).

    Entrada de amostra:

    FOOBAR:SCN:NO_TRG
FIZZBAR:SCN:NO_TRG
BEBAR:PRM:TRG

    Saída de amostra:

    BEBAR:PRM:TRG
FOOBAR:SCN:NO_TRG
FIZZBAR:SCN:NO_TRG

    NOTA: Embora o código acima seja bastante simples, no verdadeiro espírito TMTOWTDI você pode escrever várias respostas Raku diferentes. Abaixo, um arquivo é lido lineno @aarray. Raku grepé usado para extrair correspondências, aqui retornadas como :ppares (a chave é igual ao número da linha, enquanto o valor é igual ao texto da linha). As correspondências são salvas na @matchmatriz e depois impressas. Em seguida, as linhas não correspondentes são geradas: a @amatriz recebe um [ ... ]índice que calcula a (-)diferença assimétrica do conjunto de ^@a.elemsposições de índice (-)menos as correspondências.

    ~$ raku -e 'my @a = lines;   
            my @match = @a.grep( /PRM\:TRG/, :p ); 
            .put for @match.map(*.value);
            .put for @a[ keys ^@a.elems (-) @match.map(*.key) ] ;'  file

    Para todas as respostas acima, tentei evitar uma abordagem de duas passagens. Mas, no interesse da integridade, o Raku greppode retornar linhas não correspondentes: veja o greplink abaixo para obter detalhes.

    https://docs.raku.org/language/operators#infix_??_! !
    https://docs.raku.org/routine/grep
    https://docs.raku.org/language/setbagmix
    https://raku.org

    • 1 
  5. $ sed -n '/PRM:TRG/!H;//p;${g;s/\n//;p;}' << EOF
FOOBAR:SCN:NO_TRG
FIZZBAR:SCN:NO_TRG
BEBAR:PRM:TRG
EOF
BEBAR:PRM:TRG
FOOBAR:SCN:NO_TRG
FIZZBAR:SCN:NO_TRG

    Para não correspondências ( !), anexe ao Hespaço antigo. Em seguida, pimprima partidas ( //). Ao chegar à última linha ( $), get o conteúdo do espaço de espera, substituindo o espaço de padrão. Em seguida, remova a primeira nova linha para evitar que uma linha vazia seja anexada a um espaço de espera vazio com a primeira não correspondência. Finalmente, pimprima essas linhas não correspondentes.

    • 0

relate perguntas