Intereting Posts
Как переключить блокировку esc и caps с помощью gsettings / gconftool-2 в ubuntu 14.04? Как узнать процесс (ы), который вилки много? Тестирование SSH Доступ из внешней сети Как разместить сайт локальной сети, недоступный за пределами локальной сети? Не удается записать файл с разрешением на запись Удалить строки, содержащие X в определенном столбце .csv Какие типы поддержки регулярных выражений поддерживают (например) отрицательный lookbehind? Force bash, чтобы уважать новые строки в командном выходе Помогите улучшить мои навыки AWK Как вы переупаковываете пакет deb для более старой ОС? Идите вперед в истории аргументов bash Используйте прокси на сервере Linux. Разные результаты между командной строкой и выполнением браузера Как преобразовать tar-файл из формата gnu в формат pax Как ЦП знает, какой физический адрес сопоставляется с каким виртуальным адресом? Уменьшить скорость копирования диска / диска

Добавление значений во втором столбце, если первая запись столбца одинакова в UNIX

Я пытаюсь объединить файл, содержащий следующие данные в UNIX. Мне нужно добавить суммы, если ключ такой же.

Key,amount,date,Time abc-xyz-12234,45,15-08-91,23:00 pqr-vgh-5241,15,15-08-91,21:00 abc-xyz-12234,35,15-08-91,23:00 pqr-vgh-5241,24,15-08-91,21:00 abc-xyz-12234,655,15-08-91,23:00 lkj-erf-8542,281,15-08-91,10:00 pqr-vgh-5241,40,15-08-91,21:00 

Результат должен быть следующим:

 abc-xyz-12234,735,15-08-91,23:00 pqr-vgh-5241,79,15-08-91,21:00 lkj-erf-8542,281,15-08-91,10:00 

Я попробовал следующую команду, но это просто дает мне uniq

 cat file | grep "abc-xyz-12234" | uniq 

Может ли кто-нибудь помочь мне пройти через это?

Другим возможным решением с awk может быть:

 awk 'BEGIN { FS = OFS = "," } NR != 1 { y[$1] += $2; $2 = y[$1]; x[$1] = $0; } END { for (i in x) { print x[i]; } }' file 

Недостаток – это не сохранит ваш заказ. Таким образом, результат может быть:

 pqr-vgh-5241,79,15-08-91,21:00 abc-xyz-12234,735,15-08-91,23:00 lkj-erf-8542,281,15-08-91,10:00 

Вы можете сделать это с помощью awk:

 #!/bin/sh sort | awk -F, ' function result() { if ( key != "" ) { printf "%s,%d,%s\n", key, value, datetime; } } BEGIN { key = ""; value = 0; datetime = ""; } $2 ~ /^[0-9]+/ { if ( $1 == key ) { value += $2; } else { result(); key = $1; value = $2; datetime = $3 "," $4; } } END { result(); } ' а #!/bin/sh sort | awk -F, ' function result() { if ( key != "" ) { printf "%s,%d,%s\n", key, value, datetime; } } BEGIN { key = ""; value = 0; datetime = ""; } $2 ~ /^[0-9]+/ { if ( $1 == key ) { value += $2; } else { result(); key = $1; value = $2; datetime = $3 "," $4; } } END { result(); } ' 

дающий

 ./foo <input abc-xyz-12234,735,15-08-91,23:00 lkj-erf-8542,281,15-08-91,10:00 pqr-vgh-5241,79,15-08-91,21:00 

Вот в Perl. Назовите это как ./script file.ext :

 use warnings; use strict; my %data; my @order; while (<>){ next if $. == 1; my @line = split /,/; if (defined $data{$line[0]}){ $data{$line[0]}->[1] += $line[1]; } else { $data{$line[0]} = \@line; push @order, $line[0]; } } for (@order){ print join(',', @{$data{$_}}); }