¿Cómo puedo eliminar la quinta palabra de cada línea en un archivo?

Quiero eliminar la quinta palabra de cada línea en un archivo.

El contenido actual del archivo:

File is not updated or and will be removed  
System will shut down f within 10 seconds  
Please save your work 55 or copy to other location  
Kindly cooperate with us D  

Rendimiento esperado:

File is not updated and will be removed  
System will shut down within 10 seconds  
Please save your work or copy to other location  
Kindly cooperate with us

Que tal cut:

$ cut -d' ' -f1-4,6- file.txt 
File is not updated and will be removed  
System will shut down within 10 seconds  
Please save your work or copy to other location  
Kindly cooperate with us

• -d' ' establece el delimitador como espacio

• -f1-4,6- selecciona el primer al cuarto campo (palabra), dejando el quinto y luego continúa imprimiendo del sexto al resto.

Una solución con cut:

cut -d ' ' -f1-4 -f6- FILE

awk: elimina el quinto campo

awk '{for (i=5; i<NF; i++) $i = $(i+1); NF--};1' file

Si desea guardar el archivo en su lugar: /programming//q/16529716/7552

Simplemente podría borrar el contenido del quinto campo, pero eso deja 2 separadores de campo de salida consecutivos:

awk '{$5 = ""};1' file

Con POSIX sed:

sed -e 's/[^[:alnum:]_][[:alnum:]_][[:alnum:]_]*//4' <file

Glenn ofreció una solución que es equivalente a

awk '{$ 5 = ""; imprimir} ' archivo

Como él y otros han señalado, esto

1. elimina espacios en blanco iniciales y finales de cada línea,
2. comprime cada cadena de espacios en blanco (espacios y / o pestañas) en un solo espacio, y
3. deja dos espacios entre la cuarta y seis palabras.

Un truco para solucionar el tercer problema es

awk '{$ 5 = ""; imprimir} ' archivo | sed 's / / /'

Esto aún dejará uno o más espacios agregados al final de cualquier línea que tenga cinco o menos palabras. Si puede identificar una palabra que nunca aparecerá en la entrada,

awk '{$ 5 = "unicornio"; imprimir} ' archivo | sed 's / * unicornio //'

manejará incluso eso (pero aún deja los problemas 1 y 2).

 sed 's/^\(\([[:blank:]]*[^[:blank:]]\{1,\}\)\{4\}\)[[:blank:]]*[^[:blank:]]*/\1/' YourFile > Output.txt

• posix sed basado en espacio / separador de tabulación (metaclase [: en blanco:]])
• mantenga el siguiente espacio después de la quinta palabra pero elimine el anterior

Una *versión más robusta (toma el patrón más largo posible y el patrón con podría perder la separación o la palabra en la primera versión) pero una versión un poco más larga

sed 's/^\([[:blank:]]*\([^[:blank:]]\{1,\}[[:blank:]]\{1,\}\)\{4\}\[^[:blank:]]\{1,\}/\1/' YourFile > Output.txt

Perl.

perl -ne 'print $_ =~ /^(\w+ +\w+ +\w+ +\w+ +)\w+ (.*)/,"\n"' file

Otra posibilidad, suponiendo un corte GNU:

cut -d' ' -f5 --complement file.txt

Usando Perl> 5.10 (y generando correctamente todas las líneas: 0)): -

perl -nE '/^((\w+ +){4})\w+ *(.*)/; say $1.$3' file