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

13

Я хочу удалить 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

text-processing sed awk

— pmaipmui
источник

31

Как насчет 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-го до остальных.

— heemayl
источник

11

Решение с cut:

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

— fd0
источник

Множественный -fне поддерживается в моем cut(GNU) по крайней мере ..

— Heemayl

Поддерживается в BSD Cut, но мне нравится ваш ответ лучше, чем мой.

— fd0

1

Если это GNU вырезать, вы получите --complementфлаг , чтобы упростить вещи: cut --complement -d ' ' -f5. Не забудьте перенаправить вывод в новый файл, а затем mvповерх оригинала.

— Тоби Спейт

6

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

— Гленн Джекман
источник

оговорка здесь заключается в том, что изменение значения любого поля в awk имеет побочный эффект - перезаписывает весь «$ 0» только с одним разделителем между каждым полем. следует принять во внимание, если вы хотите сохранить какое-либо выравнивание (если у gnu awk нет возможности избежать этого? обычный awk / nawk будет пересчитывать $ 0)

— Оливье Дюлак

В обоих случаях вы переформатируете строку с одним разделителем. Если в разделителе есть 2 пробела или пробел + табуляция, результатом будет один пробел на месте. Надеюсь, это нормально для большей части текста.

— NeronLeVelu

4

С помощью POSIX sed:

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

— cuonglm
источник

зачем ограничивать класс: alnum: _ а не чем-то еще :blank:или :space:?

— NeronLeVelu

@NeronLeVelu: Это зависит от того, как вы определяете, что делают слово.

— Cuonglm

@mikeserv; Хорошо поймал! Я обновил свой ответ.

— cuonglm

Для чего $нужна группа захвата $?

— mikeserv

@mikeserv: моя ошибка ввода, я только что попробовал несколько способов сохранить разделитель.

— cuonglm

2

Гленн предложил решение, которое эквивалентно

awk '{$ 5 = ""; печать} ' файл

Как он и другие указали, это

убирает начальные и конечные пробелы из каждой строки,
сжимает каждую строку пробелов (пробелы и / или табуляции) в один пробел, и
оставляет два пробела между четвертым и шестью словами.

Взломать, чтобы исправить третью проблему

awk '{$ 5 = ""; печать} ' файл | sed 's / / /'

Это по-прежнему оставит один или несколько добавленных пробелов в конце любой строки, в которой вводится пять или менее слов. Если вы можете определить слово, которое никогда не появится на входе,

awk '{$ 5 = "единорог"; печать} ' файл | sed 's / * единорог //'

справится даже с этим (но это все равно оставляет проблемы 1 и 2).

— Скотт
источник

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

— NeronLeVelu
источник

1

sed 's/[^[:blank:]]*//5'

— mikeserv

@mikeserv, это будет держать оба окружающих сепаратора, sed 's/[[:blank:]*[^[:blank:]]*//5'лучше. Очень хороший момент. Я подозревал, что sed воспринимает каждый символ как единое целое, но в качестве сущности он принимает наибольший неразбитый шаблон

— NeronLeVelu

sed 's/[[:blank:]][^[:blank:]]*//4'удалит 5-е поле целиком.

— mikeserv

@mikeserv Предполагая, что на линии нет начального пробела (как в примере)

— NeronLeVelu

В этом случае да, я думаю, что вы правы. Обычно такая вещь была бы нулевым полем, и поведение было бы правильным. В этом случае вы должны сделать , как @cuonglm сделал , и убедитесь , что вы ссылаетесь на слово каждый раз , как sed 's/[[:blank:]][^[:blank:]][^[:blank:]]*//4', или, ж / GNU / BSD / Игрушечные seds: sed -E 's/[[:blank:]][^[:blank:]]+//4'.

— mikeserv

1

Perl.

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

— Стив
источник

1

Другая возможность, предполагая, что GNU вырезать:

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

— Цифровая травма
источник

-1

Используя Perl> 5.10 (и успешно вывести все строки: 0)): -

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

— Медлок Перлман
источник