Як я можу видалити 5-е слово кожного рядка з файлу?

Я хочу видалити 5-е слово кожного рядка у файлі.

Поточний вміст файлу:

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  

Очікуваний вихід:

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

Як щодо 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' ' встановлює роздільник як пробіл

• -f1-4,6- вибирає перше-четверте поле (слово), залишаючи 5-е, а потім продовжуємо друкувати з 6-го на решту.

Рішення з cut:

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

awk: видалити 5-е поле

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

Якщо ви хочете зберегти файл на місці: /programming//q/16529716/7552

Ви можете просто стерти вміст 5-го поля, але це залишає 2 послідовних роздільника вихідних полів:

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

З POSIX sed:

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

Гленн запропонував рішення, рівнозначне

awk '{$ 5 = ""; print} ' файл

Як він та інші вказували, це

1. смуги, що ведуть і проміжно пробіл з кожного рядка,
2. стискає кожен рядок пробілів (пробіли та / або вкладки) в єдиний пробіл, і
3. залишає два проміжки між четвертим та шістьма словами.

Злому, щоб виправити третю проблему

awk '{$ 5 = ""; print} ' файл | sed 's / / /'

Це все одно залишить одне або більше доданих пробілів у кінці будь-якого рядка, на якому міститься п'ять чи менше слів. Якщо ви зможете визначити слово, яке ніколи не відображатиметься на вводі,

awk '{$ 5 = "єдиноріг"; print} ' файл | sed 's / * єдиноріг //'

впорається навіть з цим (але це все ще залишає проблеми 1 і 2).

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

• posix sed на основі роздільника простору / вкладки (мета-клас [: blank:]])
• збережіть наступний пробіл після 5-го слова, але видаляючи попереднє

Більш надійний (sed взяв найдовший можливий візерунок і шаблон з *може пропустити розділення або слово в першій версії), але трохи довший варіант

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

Ще одна можливість, якщо припустити скорочення GNU:

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

Використовуючи Perl> 5.10 (і успішно виводить усі рядки: 0)): -

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