Início / unix / Perguntas / 724404
Accepted
nath
Asked: 2022-11-11 11:12:38 +0800 CST

Sed - remova os números das colunas que se repetem dentro da linha, mas mantenha a primeira abordagem

  • 772

Eu tenho um arquivo de texto no seguinte formato:

c4 c4 r4 c8 c8 e2 e2 c1 
c4 c4 r4 c8 c8 c1 e2 e2 
c4 c4 r4 e2 e2 c8 c8 c1 
c4 c4 r4 e2 e2 c1 c8 c8 
c4 c4 r4 c1 e2 e2 c8 c8 
c4 c4 r4 c1 c8 c8 e2 e2 
c4 c4 c8 c8 r4 e2 e2 c1 
c4 c4 c8 c8 r4 c1 e2 e2 
c4 c4 c8 c8 e2 e2 r4 c1 
c4 c4 c8 c8 e2 e2 c1 r4 
c4 c4 c8 c8 c1 e2 e2 r4 
c4 c4 c8 c8 c1 r4 e2 e2 
c4 c4 e2 e2 c8 c8 r4 c1 
c4 c4 e2 e2 c8 c8 c1 r4 
c4 c4 e2 e2 r4 c8 c8 c1

Quero remover todos os números das colunas que se repetem dentro da linha, mas sempre manter a primeira abordagem, também quando o valor foi alterado por outro número - para que a saída fique assim:

c4 c r c8 c e2 e c1 
c4 c r c8 c c1 e2 e 
c4 c r e2 e c8 c c1 
c4 c r e2 e c1 c8 c 
c4 c r c1 e2 e c8 c 
c4 c r c1 c8 c e2 e 
c4 c c8 c r4 e2 e c1 
c4 c c8 c r4 c1 e2 e 
c4 c c8 c e2 e r4 c1 
c4 c c8 c e2 e c1 r4 
c4 c c8 c c1 e2 e r4 
c4 c c8 c c1 r4 e2 e 
c4 c e2 e c8 c r4 c1 
c4 c e2 e c8 c c1 r4 
c4 c e2 e r4 c8 c c1

Os números possíveis são (1-64)

text-processing

1 respostas

  1. Best Answer

    Com GNU¹ sed, você poderia fazer:

    $ sed -Ee ':1;s/(\<[[:alpha:]]([[:digit:]])+\>[[:alpha:][:space:]]*\<[[:alpha:]])\2\>/\1/;t1' < file
c4 c r c8 c e2 e c1
c4 c r c8 c c1 e2 e
c4 c r e2 e c8 c c1
c4 c r e2 e c1 c8 c
c4 c r c1 e2 e c8 c
c4 c r c1 c8 c e2 e
c4 c c8 c r4 e2 e c1
c4 c c8 c r4 c1 e2 e
c4 c c8 c e2 e r4 c1
c4 c c8 c e2 e c1 r4
c4 c c8 c c1 e2 e r4
c4 c c8 c c1 r4 e2 e
c4 c e2 e c8 c r4 c1
c4 c e2 e c8 c c1 r4
c4 c e2 e r4 c8 c c1

    O mesmo com perl:

    perl -pe '1 while s/\b\pL(\d+)\b[\pL\s]*\b\pL\K\1//' < file

    Em ambos, substituímos <word-boundary><letter><digits><word-boundary><any-amount-of-letters-and-whitespace><word-boundary><letter><same-digits><word-boundary>pelo mesmo com <same-digits>removido e repetimos enquanto houver substituição (usando tou while)

    ¹ os GNUisms lá são :comandos sendo seguidos por outro comando, no padrão sedvocê precisaria -ede xpressions separadas, -E(na verdade um BSDism), \</ \>(na verdade um ex/vi'ism, algum outro seds support [[:<:]], [[:>:]]ou \bcomo equivalentes).

    • 3

relate perguntas