☰

Mover linha(s) de dados para coluna única, mantendo o(s) cabeçalho(s) de linha

tag-icon • tag-icon awk sed text-formatting table
Mover linha(s) de dados para coluna única, mantendo o(s) cabeçalho(s) de linha

Tenho relatórios gerados no seguinte formato delimitado por tabulações:

UNIT  TC    CC    PC    TCP   FTX   FRX   
HOUSE 55    65    75    85    95    105
CAR   100   200   300   400   500   600
H2    5     10    15    20    25    30
C2    10    20    30    40    50    60

Preciso alterá-los para o seguinte formato:

HOUSE TC    55
HOUSE CC    65
HOUSE PC    75
HOUSE TCP   85
HOUSE FTX   95
HOUSE FRX   105
CAR   TC    100
CAR   CC    200
CAR   PC    300
CAR   TCP   400
CAR   FTX   500
CAR   FRX   600

E assim por diante.

Eu gostaria de usar ferramentas padrão como SED AWK BASH, mas qualquer sugestão é bem-vinda. O código será inserido em um script BASH que já estou usando para analisar e concatenar os dados previamente. O número para que as entradas sejam sempre as mesmas, os relatórios não mudam.

Responder1

Tentar:

$ awk 'BEGIN { FS="\t" } NR==1 { split($0,header,"\t") ; next } { for(i=2;i<=NF;i++) print $1,header[i],$i }' data
HOUSE TC 55
HOUSE CC 65
HOUSE PC 75
HOUSE TCP 85
HOUSE FTX 95
HOUSE FRX 105
CAR TC 100
CAR CC 200
CAR PC 300
CAR TCP 400
CAR FTX 500
CAR FRX 600
H2 TC 5
H2 CC 10
H2 PC 15
H2 TCP 20
H2 FTX 25
H2 FRX 30
C2 TC 10
C2 CC 20
C2 PC 30
C2 TCP 40
C2 FTX 50
C2 FRX 60

O oneliner quebrado em pedaços:

Defina tab char como separador de campos de arquivos de entrada:

BEGIN { FS="\t" }

Se a primeira linha ( NR==1) dividir em campos e armazená-los em array header. Isso é mais curto do que copiar todos os campos $1, $2, ... em um loop for e armazená-los. O nextcomando evita que a linha 1 também seja processada pelo código a seguir, que é apenas para as outras linhas. ( FSem vez de "\t"teria sido mais consequente...)

NR==1 { split($0,header,"\t") ; next }

Para cada outra linha ( NR!=1) imprima todos os campos ( $2...$NF) prefixados por $1 e o nome do campo ( header[i]).

{ for(i=2;i<=NF;i++) print $1,header[i],$i }

A configuração OFS=FS="\t"no BEGINbloco fará com que seja printutilizada uma tabulação entre os campos. Não mudei isso na resposta porque seria necessário reformatar também todas as linhas de saída.

informação relacionada