Substitua “_” por “|” em um arquivo somente no 5º campo

Question

Substitua “_” por “|” em um arquivo somente no 5º campo

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

6

Meu arquivo tem o conteúdo abaixo:

rat|minty|ruhul|balaji|rat_123|decode|rat_123|abc|def|ghi|jkl|rat|cde|ind|rat
rat|minty|ruhul|balaji|rat1_123|decode|rat_123|abc|def|ghi|jkl|rat|cde|ind|rat
rat|minty|ruhul|balaji|rat2_123|decode|rat_123|abc|def|ghi|jkl|rat|cde|ind|rat

Eu preciso substituir _ por | , mas somente no quinto campo.

Resultado esperado:

rat|minty|ruhul|balaji|rat|123|decode|rat_123|abc|def|ghi|jkl|rat|cde|ind|rat
rat|minty|ruhul|balaji|rat1|123|decode|rat_123|abc|def|ghi|jkl|rat|cde|ind|rat
rat|minty|ruhul|balaji|rat2|123|decode|rat_123|abc|def|ghi|jkl|rat|cde|ind|rat

text-processing

por unix_user 28.09.2016 / 09:11

3 respostas

Tags text-processing

Como posso deixar em branco o nth ao mth campo usando o comando awk? Como posso configurar o Apache para usar a porta 1 e outras portas abaixo de 80?

score 20 · Answer 1

Com awk , use gsub() no quinto campo :

$ awk 'BEGIN{FS=OFS="|"} {gsub("_",FS,$5)}1' file
rat|minty|ruhul|balaji|rat|123|decode|rat_123|abc|def|ghi|jkl|rat|cde|ind|rat
rat|minty|ruhul|balaji|rat1|123|decode|rat_123|abc|def|ghi|jkl|rat|cde|ind|rat
rat|minty|ruhul|balaji|rat2|123|decode|rat_123|abc|def|ghi|jkl|rat|cde|ind|rat

Explicação

BEGIN{FS=OFS="|"}
Defina o separador de campo como | . Dessa forma, podemos endereçar $5 como o quinto campo e assim por diante.
{gsub("_",FS,$5)}
Substitua todo o _ no quinto campo por FS . Isto é, com | .
1
Acione a ação padrão do awk: imprima o registro atual (modificado).

score 8 · Answer 2

Com sed , desde que o quinto campo tenha apenas um _ a ser substituído

$ sed -E 's/^(([^|]+\|){4}[^_]+)_/|/' ip.txt 
rat|minty|ruhul|balaji|rat|123|decode|rat_123|abc|def|ghi|jkl|rat|cde|ind|rat
rat|minty|ruhul|balaji|rat1|123|decode|rat_123|abc|def|ghi|jkl|rat|cde|ind|rat
rat|minty|ruhul|balaji|rat2|123|decode|rat_123|abc|def|ghi|jkl|rat|cde|ind|rat

Solução com perl (semelhante a awk one) se todos os _ no quinto campo forem substituídos:

$ perl -F'\|' -lane '$F[4] =~ tr/_/|/; print join "|",@F' ip.txt 
rat|minty|ruhul|balaji|rat|123|decode|rat_123|abc|def|ghi|jkl|rat|cde|ind|rat
rat|minty|ruhul|balaji|rat1|123|decode|rat_123|abc|def|ghi|jkl|rat|cde|ind|rat
rat|minty|ruhul|balaji|rat2|123|decode|rat_123|abc|def|ghi|jkl|rat|cde|ind|rat

score 2 · Answer 3

com perl :

$ perl -F'\|' -ne '$F[4]=~s/_/|/; print join "|", @F' file
rat|minty|ruhul|balaji|rat|123|decode|rat_123|abc|def|ghi|jkl|rat|cde|ind|rat
rat|minty|ruhul|balaji|rat1|123|decode|rat_123|abc|def|ghi|jkl|rat|cde|ind|rat
rat|minty|ruhul|balaji|rat2|123|decode|rat_123|abc|def|ghi|jkl|rat|cde|ind|rat

O -a faz com que perl aja como awk , dividindo cada linha de entrada no caractere dado por -F nos campos salvos na matriz @F . Em seguida, substituímos _ por | no quinto campo (as matrizes começam em 0, então $F[4] é o quinto campo) e, em seguida, imprimimos a matriz unida por | .

Você também pode definir o separador de matriz como | e imprimir "@F" , que faz a mesma coisa, mas de forma mais concisa:

$ perl -F'\|' -ne '$"="|"; $F[4]=~s/_/|/; print "@F"' file
rat|minty|ruhul|balaji|rat|123|decode|rat_123|abc|def|ghi|jkl|rat|cde|ind|rat
rat|minty|ruhul|balaji|rat1|123|decode|rat_123|abc|def|ghi|jkl|rat|cde|ind|rat
rat|minty|ruhul|balaji|rat2|123|decode|rat_123|abc|def|ghi|jkl|rat|cde|ind|rat

Naturalmente, no seu exemplo específico, o _ no quinto campo também é o primeiro da linha, então se o seu arquivo é realmente assim, é o suficiente para fazer:

$ perl -pe 's/_/|/' file 
rat|minty|ruhul|balaji|rat|123|decode|rat_123|abc|def|ghi|jkl|rat|cde|ind|rat
rat|minty|ruhul|balaji|rat1|123|decode|rat_123|abc|def|ghi|jkl|rat|cde|ind|rat
rat|minty|ruhul|balaji|rat2|123|decode|rat_123|abc|def|ghi|jkl|rat|cde|ind|rat

Ou

$ sed 's/_/|/' file 
rat|minty|ruhul|balaji|rat|123|decode|rat_123|abc|def|ghi|jkl|rat|cde|ind|rat
rat|minty|ruhul|balaji|rat1|123|decode|rat_123|abc|def|ghi|jkl|rat|cde|ind|rat
rat|minty|ruhul|balaji|rat2|123|decode|rat_123|abc|def|ghi|jkl|rat|cde|ind|rat

Você pode usar a mesma abordagem com awk :

$ awk -F'|' 'sub("_","|")' file 
rat|minty|ruhul|balaji|rat|123|decode|rat_123|abc|def|ghi|jkl|rat|cde|ind|rat
rat|minty|ruhul|balaji|rat1|123|decode|rat_123|abc|def|ghi|jkl|rat|cde|ind|rat
rat|minty|ruhul|balaji|rat2|123|decode|rat_123|abc|def|ghi|jkl|rat|cde|ind|rat

Ou, para especificar apenas o quinto campo e substituir todas as ocorrências de _ no quinto campo, uma versão menor de Resposta do @ fedorqui :

$ awk -F'|' -vOFS='|' 'gsub("_","|",$5)' file 
rat|minty|ruhul|balaji|rat|123|decode|rat_123|abc|def|ghi|jkl|rat|cde|ind|rat
rat|minty|ruhul|balaji|rat1|123|decode|rat_123|abc|def|ghi|jkl|rat|cde|ind|rat
rat|minty|ruhul|balaji|rat2|123|decode|rat_123|abc|def|ghi|jkl|rat|cde|ind|rat

Observe que essas duas soluções awk só serão impressas nas linhas em que a substituição foi bem-sucedida. Se você pode ter linhas que não combinam com o padrão (sem _ no quinto campo), use a abordagem de @ fedorqui ou uma das perl em vez disso.