Eu gostaria de mudar:
e·ver·y·bo·dy
para:
e·ver·y·bo·dy
e·ver·y·bo·
e·ver·y·
e·ver·
e·
Um for
loop será muito preferido.
Responder1
Isso também usa um loop, embora seja um loop for
awk :for
$ echo "e·ver·y·bo·dy" | awk -F· -v OFS=· '{print;for (i=NF;i>1;i--){$i="";print;NF--} }'
e·ver·y·bo·dy
e·ver·y·bo·
e·ver·y·
e·ver·
e·
Versão alternativa de curta para longa
$ echo 'e·ver·y·bo·dy' | awk -F· -v OFS=· '{for (i=1;i<=NF;i++){for (j=1;j<=i;j++)printf "%s%s",$j,j<NF?OFS:"";print""} }'
e·
e·ver·
e·ver·y·
e·ver·y·bo·
e·ver·y·bo·dy
Outra variação
$ echo 'e·ver·y·bo·dy' | awk -F· -v OFS=· '{s="";for (i=1;i<=NF;i++){s=s OFS $i; printf "%s",substr(s,2); print (i==NF)?"":OFS} }'
e·
e·ver·
e·ver·y·
e·ver·y·bo·
e·ver·y·bo·dy
Responder2
Você pode fazer isso mais curtoestranhocomando como abaixo (longo para pequeno):
$ awk -F'·' '{while (NF){ print $0;NF--;ORS="·\n"}}' OFS='·' file
e·ver·y·bo·dy
e·ver·y·bo·
e·ver·y·
e·ver·
e·
E depequeno a longocomo segue:
$ awk -F'·' '{i=1; while(i<NF){ print tmp=tmp$((i++))"·"} print $0}' file
e·
e·ver·
e·ver·y·
e·ver·y·bo·
e·ver·y·bo·dy
Responder3
Se tiver que ser um for
loop:
IFS=·
for l in $(echo "e·ver·y·bo·dy"); do x="$x$l·"; echo "$x"; done | tac
Primeiro temos que definir oseparador de arquivos internopara ·
. Em seguida, o loop for percorre cada parte e as imprime, mas na ordem errada. É por isso que tac
no final inverte a ordem.
Me dá a saída:
e·ver·y·bo·dy·
e·ver·y·bo·
e·ver·y·
e·ver·
e·
Responder4
Aqui está uma python
solução:
#!/usr/bin/env python2
# -*- coding: utf-8 -*-
input_str = 'e·ver·y·bo·dy'
input_list = input_str.split('·')
print input_str
i = len(input_list)
while i > 1:
print '·'.join(input_list[:i-1]) + '·'
i -= 1
Aqui, primeiro split
usamos a string de entrada ·
como delimitador para gerar uma lista e, em seguida, usamos o fatiamento da lista join
para obter a saída desejada.