Удаление полей из файла

Удаление полей из файла

Содержимое файла a.txt

Event: "112506400","17","2016/07/13-15-25-59.00",,,,,,,,,,,"112506400","115101234","02:00:00","pc","abc","4194","file_nam","F",,,"LA
",,"jk","123",,,,,,,,,,

Мне нужен файл, который не имеет $20 (имя_файла), перенаправленный в asort.txt. Есть ли какая-то короткая команда, так как в настоящее время я использую нижеследующую

cat a.txt | grep Event: |awk -F, '{print $1","$2","$3","$4","$5","$6","$7","$8","$9","$10","$11","$12","$13","$14","$15","$16","$17","$18","$19","$21","$22","$23","$24","$25","$26","$27","$28","$29","$30","$31","$32","$33","$34","$35","$36","$37}'> asort.txt

решение1

Возможно, команда cut может сделать следующее:

cat a.txt | cut -d "," -f 1-19,21-37

Таким образом, вы пропускаете поле №20, предполагая, что запятая является стабильным разделителем.

решение2

Это должно сработать:

grep Event: a.txt | awk 'BEGIN{FS=OFS=","}{$20=""; print}' > asort.txt

решение3

сsed

$ echo 'a,,b,c,d' | sed -E 's/^(([^,]*,){2})[^,]*,/\1/'
a,,c,d
$ echo 'a,,b,c,d' | sed -E 's/^(([^,]*,){3})[^,]*,/\1/'
a,,b,d
  • [^,]*,ноль или более текста без запятой, за которым следует запятая
  • {2}или {3}предшествующая группа два или три раза, используйте номер столбца, чтобы удалить минус один

аналогично, за perlисключением того, что мы можем повторно использовать шаблон регулярного выражения

$ # (?2) refers to ([^,]*,)
$ echo 'a,,b,c,d' | perl -pe 's/^(([^,]*,){2})(?2)/$1/'
a,,c,d
$ echo 'a,,b,c,d' | perl -pe 's/^(([^,]*,){3})(?2)/$1/'
a,,b,d

$ # golfed with lookbehind
$ echo 'a,,b,c,d' | perl -pe 's/^([^,]*,){2}\K(?1)//'
a,,c,d
$ echo 'a,,b,c,d' | perl -pe 's/^([^,]*,){3}\K(?1)//'
a,,b,d

Связанный контент