URL: https://www.opennet.me/cgi-bin/openforum/vsluhboard.cgi
Форум: vsluhforumID9
Нить номер: 7215
[ Назад ]

Исходное сообщение
"perl"

Отправлено omar , 27-Фев-08 18:56 
Добрый день всем... Помогите пожалуйста ...я в Перл не особенно силен....
есть файлик с содержанием скажем
81.177.140.51   192.168.3.94    7109
74.53.216.6     192.168.3.52    2082
74.53.216.6     192.168.3.52    744694
89.202.157.202  192.168.3.60    516


нужно посчитать суммы цифр с одинаковыми IP во втором столбце...
количество строк в файле каждый раз разное ...


Содержание

Сообщения в этом обсуждении
"perl"
Отправлено angra , 27-Фев-08 19:38 
$ cat a.txt
81.177.140.51   192.168.3.94    7109
74.53.216.6     192.168.3.52    2082
74.53.216.6     192.168.3.52    744694
89.202.157.202  192.168.3.60    516

perl -ane '$a{$F[1]}+=$F[2];END{print "$_ $a{$_}\n" foreach keys %a}' a.txt
192.168.3.94 7109
192.168.3.52 746776
192.168.3.60 516