☰

Como pular a substituição da primeira ocorrência de um caractere em cada linha?

tag-icon • tag-icon text-processing sed
Como pular a substituição da primeira ocorrência de um caractere em cada linha?

Eu tenho alguns arquivos no formato

Y15-SUB-B04-P17-BK_M02734_4_000000000-ANNUF_1_1111_24724_4878;size=1;
Y15-SUB-B05-P22-LM_M02734_4_000000000-ANNUF_1_1111_20624_14973;size=1;
Y15-SUB-B05-P22-LM_M02734_4_000000000-ANNUF_1_1103_11326_10379;size=1;

Desejo substituir todas as ocorrências do sublinhado (_) por dois pontos (:), EXCETO a primeira. Eu quero uma saída como esta:

Y15-SUB-B04-P17-BK_M02734:4:000000000-ANNUF:1:1111:24724:4878;size=1;
Y15-SUB-B05-P22-LM_M02734:4:000000000-ANNUF:1:1111:20624:14973;size=1;
Y15-SUB-B05-P22-LM_M02734:4:000000000-ANNUF:1:1103:11326:10379;size=1;

Eu sei que posso usar sed -i '' 's/_/:/g' old_filepara substituir ALL (ou sed 's/_/:/g' old_file > new_file) e que poderia adicionar números para substituir apenas a 2ª, 4ª ou mais ocorrências:

sed 's/_/:/2' old_file > new_file

Mas como substituir todas as ocorrências em cada linha, MAS a primeira?

Responder1

Usando GNU sed(outras versões podem se comportar de maneira diferente, obrigadoGlenn Jackman):

 sed -i'' 's/_/:/2g' file

Isso mudará tudo _para :pular a primeira ocorrência em cada linha.

Responder2

Usando Posix-sedapenas construções, gostamos de:

$ sed -e '
     y/_/\n/
     s/\n/_/
     y/\n/:/
' inp.file

Com base nas sugestões de Stephane, mais alguns métodos seguem aqui:

$ perl -pe 's/(^\G.*?_)?.*?\K_/:/g' inp.file 

$ perl -pe 'my $n; s/_/$n++?":":$&/ge' inp.file 

$ perl -pe 's/_\K(.*)/$1 =~ y|_|:|r/e' inp.file

Responder3

Está tudo bem? Você pode usar _como separador de campos e imprimir:

<field 1>_<field 2>:<field n>:<field n+1>:...

Assim:

awk -F_ '{ printf("%s_%s", $1, $2); for (x = 3; x <=NF; x++) { printf(":%s", $x); }; printf("\n"); }'

Se a estrutura for a mesma para cada linha, você poderá codificar o número de campos para evitar o loop (é executado em cerca de 2/3 do tempo, de acordo com um teste preliminar muito aproximado):

awk -F_ '{printf("%s_%s:%s:%s:%s:%s:%s:%s\n", $1, $2, $3, $4, $5, $6, $7, $8);}'

Responder4

Aqui está outro awkscript simples, (padrão Linux gawk), sem loops:

cat script.awk
match($0,/^[^_]*_/,a){ # match current line to first _ (including) into a[0] variable
   sub(a[0],"");       # remove a[0] from current line
   gsub("_",":");      # replace all _ to : in current line
   print a[0]""$0;     # output a[0] and current line
}

correr:

awk -f script.awk input.txt

ou:

awk 'match($0,/^[^_]*_/,a){sub(a[0],"");gsub("_",":");print a[0]""$0;}' input.txt

informação relacionada