Me gustaría cambiar:
e·ver·y·bo·dy
a:
e·ver·y·bo·dy
e·ver·y·bo·
e·ver·y·
e·ver·
e·
for
Se preferirá mucho un bucle.
Respuesta1
Esto también usa un bucle, aunque sea un bucle 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·
Versión alternativa de corta a larga
$ 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
Otra variación
$ 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
Respuesta2
Puedes hacerlo por más corto.awkcomando como se muestra a continuación (largo a pequeño):
$ 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·
Y depequeño a largocomo sigue:
$ 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
Respuesta3
Si tiene que ser un for
bucle:
IFS=·
for l in $(echo "e·ver·y·bo·dy"); do x="$x$l·"; echo "$x"; done | tac
Primero tenemos que configurar elseparador de archivos internoa ·
. Luego, el bucle for recorre cada pazo y lo imprime, pero en el orden incorrecto. Por eso tac
al final se invierte el orden.
Me da la salida:
e·ver·y·bo·dy·
e·ver·y·bo·
e·ver·y·
e·ver·
e·
Respuesta4
Aquí hay una python
solución:
#!/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
Aquí primero split
usamos la cadena de entrada ·
como delimitador para generar una lista y luego usamos la división de listas y join
para obtener el resultado deseado.