Исходное сообщение
"суммирование полей записей" Отправлено alexvs, 29-Окт-06 23:01
#more 1.txt 123 39  223 440 123 39  40  41 123 39  201 900 232 710 222 2   45 234 2345 710 222 611 33 234 23 710 222 21  309 5 234 234 234 234 #cat 1.txt | perl -e 'my %hs; while(<>) {my @mass=split/\s/; my $key = (shift @mass)." ".(shift @mass); foreach my $val (@mass) {$hs{$key}+=$val;}} foreach my $val (sort keys %hs) {print "$val $hs{$val}\n";}'