Добавление значений во втором столбце, если первая запись столбца одинакова в 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 

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

  • Возьмите информацию из CSV-файла и добавьте его после определенного шаблона
  • Извлечь имена файлов со структурой каталога в CSV-файл (отдельный файл csv для каждого имени изображения)
  • Как найти и заменить новую строку?
  • Обработка файлов CSV
  • Проблемы с разделением файлов CSV
  • Дублировать строки и сделать их уникальными?
  •  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 

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

  • Использование CSV-строки в качестве параметров команды
  • Сопоставление и удаление строк с ~ 100 строк
  • Удалите только запятые, присутствующие в двойных кавычках
  • Обработка запятой в строковых значениях в файле CSV
  • Как присоединиться к двум csv с таким же количеством строк
  • Есть ли способ сортировать grep-вывод csv-файла?
  • 3 Solutions collect form web for “Добавление значений во втором столбце, если первая запись столбца одинакова в UNIX”

    Другим возможным решением с 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{$_}}); } 
    Linux и Unix - лучшая ОС в мире.