Início / unix / Perguntas / 570101
Accepted
Tagwint
Asked: 2020-02-28 08:52:33 +0800 CST

Modificar linhas não adjacentes especificadas por números de linha

  • 772

Conheço os números de linha com antecedência e os mantenho em outro arquivo:

cat linenos
2
15
42
44
... etc

como você vê, as linhas não são adjacentes, então não posso usar um intervalo para sed. O objetivo é modificar as linhas do arquivo de destino, digamos, prefixando-as com um marcador como MARKER

A maneira direta é chamar sedvárias vezes para modificar cada linha:

for l in $(cat linenos)
do 
  sed -i "${l}s/^/MARKER/" target_file
done

que aparentemente chamará sed várias vezes.

CUIDADO : *Esta abordagem não é apenas ineficiente, mas também pode fazer com que as coisas dêem errado se a modificação for diferente de inserir um marcador como este. Qualquer comando sed de exclusão ou inserção de linha, como dar, tornará o número de linha inicial em linenos inválido para as próximas execuções do sed no loop.

O que você sugeriria para melhorar/otimizar isso?

Exemplo de arquivo linenos

cat linenos
2
5

Exemplo de arquivo_destino

cat target_file
line one
line two
line three
line four
line five
line six

Resultado esperado de target_file modificado

cat target_file
line one
MARKERline two
line three
line four
MARKERline five
line six

A abordagem possível que eu criei é criar dinamicamente o cenário sed

SEDCMD=$(for l in $(cat linenos); do echo -n "${l}s/^/MARK/;" ; done)

sed -i -e "$SEDCMD" targetfile

A abordagem abaixo do @steeldriver compartilha a ideia, mas é mais elegante e concisa

bash sed

5 respostas

  1. Você pode usar o próprio sed (ou outro utilitário de processamento de texto de sua escolha) para transformar os números de linha em expressões sed e depois passá-los para o sed usando a -fopção

    Ex.

    sed 's:$:s/^/MARKER/:' linenos | sed -f- -i target_file

    Isso pelo menos só chama sed duas vezes .

    • 10

  2. Com perl(de onde o GNU sedveio -i):

    perl -pi -e '
  BEGIN{$l{0+$_}=1 while <STDIN>}
  $_ = "MARKER$_" if $l{$.}' target_file < linenos

    Alimentamos a lista de números de linha no perlstdin de . Isso é lido no BEGINbloco.

    Para cada linha de entrada, convertemos essa linha em um número com 0+$_. Isso faz com que o caractere de nova linha desapareça e também canoniza os números (todos 1e0, 1, 01 se tornam 1).

    A %ltabela de hash é preenchida com valor 1para cada número de linha como a chave.

    O target_fileé processado no -ploop principal onde MARKERSé anexado às linhas em que o número da linha atual ( $.) é encontrado %lcom um valor diferente de zero.

    • 6 
  3. $ awk 'NR==FNR{a[$1]="MARKER"; next} {print a[FNR] $0}' linenos target_file
line one
MARKERline two
line three
line four
MARKERline five
line six

    ou para economizar um pouco de memória:

    $ awk 'NR==FNR{a[$1]; next} {print (FNR in a ? "MARKER" : "") $0}' linenos target_file
line one
MARKERline two
line three
line four
MARKERline five
line six

    Se você quiser edição "inplace" (o mesmo que perl e GNU sed com -i) use GNU awk e altere awk '...'e awk -i inplace '...'adicione um print;antes da nextinstrução para que seu linenosarquivo não seja esvaziado. IMHO é mais simples fazer isso com qualquer awk (ou qualquer outra ferramenta UNIX):

    awk 'script' linenos target_file > tmp && mv tmp target_file
    • 4
  4. Best Answer

    Se fileNcontém o número de linhas a serem modificadas, e target_fileé o arquivo de texto que contém as linhas a serem modificadas. A solução mínima exigirá a leitura de cada arquivo uma vez.

    Classificado

    Se o arquivo que contém os números das linhas contiver um número (maior que 1) por linha, estiver ordenado e não houver repetições, podemos usar:

    awk 'BEGIN{ getline lineN <"fileN"} {
     if(NR==lineN){$0="MARKER " $0;getline lineN <"fileN"}
     }1' target_file

    O que manterá apenas uma linha na memória (de cada arquivo) e percorrerá os dois arquivos do início ao fim. No entanto, uma vez que o awk tenha processado uma linha, a linha 15, por exemplo, ele não voltará à linha 12, por exemplo. Portanto, o arquivo lineNdeve ser classificado (não repetido e maior que 1) para que isso funcione.

    não triados

    Claro, a solução ingênua é que o arquivo de números de linha pode ser classificado sort -nu fileN.

    Mas, se a lista de números de linha puder ser desordenada (e repetida), podemos usar sed , ed(o precursor de sed), ou awk (mais tarde):

    Converta cada linha em lineNum comando de edição sed como s/^/MARKER /. Ou shell printf ou sed poderia fazer isso:

    printf '%ss/^/MARKER /\n' $(<fileN) | sed -f - target_file
sed 's#$#s/^/MARKER /#' fileN       | sed -f - target_file

{ printf '%ss/^/MARKER /\n' $(<fileN); printf '%s\n' ,p Q; } | ed -Gs target_file
{ sed 's#$#s/^/MARKER /#' fileN ; echo "w"      ; } | ed target_file

    Observe que no último caso a edição é feita diretamente e no arquivo original. O último comando wgrava as modificações no arquivo. Se for necessário imprimir o resultado, use a terceira opção, que imprimirá todas as linhas.

    awk

    No awk, capture o todo fileNna memória e processetarget_file

    awk '{ if(NR==FNR){
                     a[$1]=1
                  }else{
                     if(a[FNR]==1){ printf("%s","MARKER ")};
                     print 
                  }
     }' fileN target_file

    Ou, com uma variável para controlar quando a lista de arquivos com números de linha terminou:

    awk '{ if (dofile==1) {   if(a[FNR]==1){ printf("%s","MARKER ")};
                          print
                      }else{
                          a[$1]=1
                      }
     }' fileN fileK   dofile=1   target_file

    Observe que a última versão permite vários arquivos com números de linha, como fileNe fileKno exemplo.

    Observe também que as versões awk não processam números de linha repetidos. Todos os números de linha repetidos são processados ​​apenas uma vez.

    • 2

  5. Outra maneira, usando edem vez de sedpara modificar o target_filelocal:

    (while IFS= read n; do echo "${n}s/^/MARKER/"; done < linenos; echo w) |  ed -s target_file
    • 1

relate perguntas