#! /usr/bin/perl -w
use strict;
# preskoci prva dva retka
my $dummy = <STDIN>;
$dummy = <STDIN>;
my %data = ();
while (<STDIN>) {
s{[\r\n]+$}{}g;
my ($a, $b, $c) = split(/;/, $_);
$data{$a} = 0 unless defined($data{$a});
$data{$a} += $c;
}
foreach (sort(keys(%data))) {
print STDOUT sprintf('%d=%d', $_, $data{$_})."\n";
}
Ova poruka je od: https://arhiva.linux.hr/newbb/viewtopic.php?forum=8&topic_id=2355&post_id=14705