Fácil no Perl: use um hash para armazenar as somas em execução.
perl -laF/,/ -ne '
$h{ $F[0] } += $F[1];
}{
print "$_,$h{$_}" for keys %h;
' input-file > output-file
-
-n
lê a linha de entrada por linha -
-l
adiciona novas linhas aprint
-
-a
divide cada linha de entrada no array @F -
-F/,/
diz-a
para dividir em vírgulas -
}{
é o operador "Saudação Eskimo", separa o loop-n
do código que será executado no final da entrada.