¿Cómo puedo dividir la salida con un delimitador?

¿Cómo puedo dividir la salida con un delimitador?

Me gustaría cambiar:

e·ver·y·bo·dy

a:

e·ver·y·bo·dy
e·ver·y·bo·
e·ver·y·
e·ver·

forSe preferirá mucho un bucle.

Respuesta1

Esto también usa un bucle, aunque sea un bucle forawk :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·

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·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·ver·
e·ver·y·
e·ver·y·bo·
e·ver·y·bo·dy

Respuesta2

Puedes hacerlo por más corto.comando 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·

Y depequeño a largocomo sigue:

$ awk -F'·' '{i=1; while(i<NF){ print tmp=tmp$((i++))"·"} print $0}' file
e·ver·
e·ver·y·
e·ver·y·bo·
e·ver·y·bo·dy

Respuesta3

Si tiene que ser un forbucle:

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 tacal final se invierte el orden.

Me da la salida:

e·ver·y·bo·dy·
e·ver·y·bo·
e·ver·y·
e·ver·

Respuesta4

Aquí hay una pythonsolució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 splitusamos la cadena de entrada ·como delimitador para generar una lista y luego usamos la división de listas y joinpara obtener el resultado deseado.

información relacionada