Sed / awk / perl: modifica o texto preservando as partes e alinhando com uma coluna

Question

Sed / awk / perl: modifica o texto preservando as partes e alinhando com uma coluna

#1 resposta do (3 votos)
#2 resposta do (1 votos)

2

Eu tenho um texto assim:

A1JOURNEY0TO1
    .BYTE 00, 00, 00
A2JOURNEY0TO2
    .BYTE 00, 01, 00
A3JOURNEY1TO0
    .BYTE 00, 01, 01

Eu preciso ter:

JOURNEY_01                               ; 00 TO 01
    .BYTE 00, 00, 00
JOURNEY_02                               ; 00 TO 02
    .BYTE 00, 01, 00
JOURNEY_03                               ; 01 TO 00
    .BYTE 00, 01, 01

e assim por diante, onde ";" precisa estar no char 41 da linha, e os valores usados antes e depois de "TO" são obtidos de strings de texto no início da linha.

text-processing perl awk sed

por Flavio Pasqualin 16.10.2014 / 12:19

2 respostas

Tags text-processing perl awk sed

O que esse comando “sudo pip3 instala nome-do-arquivo.whl” faz? O Linux divide arquivos separados no disco mas vê como um

score 3 · Answer 1

Os detalhes disso dependerão de quão variável sua entrada é. Se pudermos supor que JOURNEY é imutável e que os números que você deseja adicionar a ele nunca serão mais ou menos que dois caracteres ( 01-99 ), isso funcionará:

perl -pe 's/^.(\d+)      ## ignore the first character and capture 
                         ## as many digits as possible after it.
            (.+?)        ## Capture everything until the next digit: 'JOURNEY'
            (\d+)TO(\d+) ## Capture the two groups of digits on 
                         ## either side of "TO".
            /            ## End match, begin replacement.

            "$2_" .               ## The 2nd captured group, 'JOURNEY'.
            sprintf("%.2d",$1) .  ## The number, 0-padded.
            " " x 31 .            ## 31 spaces.
            sprintf("; %.2d TO %.2d",$3,$4)  ## The start and end, 0-padded.

            /ex;   ## The 'e' lets us evaluate expressions in the substitution
                   ## operator and the 'x' is only to allow whitespace
                   ## and these explanatory comments
        ' file

O acima também pode ser condensado em:

perl -pe 's/^.(\d+)(.+?)([\d]+)TO(\d+)/"$2_" . sprintf("%.2d",$1). " " x 31 . sprintf("; %.2d TO %.2d",$3,$4)/e;' file

Se os comprimentos das várias strings também forem variáveis, você precisa levar isso em consideração:

perl -pe 's/^.+?(\d+)(.+?)([\d]+)TO(\d+)/
          "$2_" . sprintf("%.2d",$1) . 
          " " x (41-length(sprintf("%.2d",$1) . "$2_")) . 
          sprintf("; %.2d TO %.2d",$3,$4)/xe;' file

score 1 · Answer 2

Com awk e adivinhando o que você deseja

arquivo ul.awk (editado)

/JOURNEY/ { jn=substr($1,2,1) ; x=substr($1,10,1) ; y=substr($1,13) ;
    printf "JOURNEY_%02d%s; %02d TO %02d\n",jn,substr("                                        ",1,31),x,y ;
    next ; }
 {print ;}

e, em seguida, execute

awk -f ul.awk u

JOURNEY_01                               ; 00 TO 01
    .BYTE 00, 00, 00
JOURNEY_02                               ; 00 TO 02
    .BYTE 00, 01, 00
JOURNEY_03                               ; 01 TO 00
    .BYTE 00, 01, 01

Isso é um pouco ruim, já que eu assumi que o número sempre será de 1 dígito.