Forum Webscript.Ru

Программирование => Perl => Тема начата: YaroslavSSS от 19 Июня 2003, 11:07:34

Название: 2 столбца суммирование
Отправлено: YaroslavSSS от 19 Июня 2003, 11:07:34

Начал заниматься анализом логов squida, я получил отсортированную таблицу соответствия IP адреса и скачанной информации в таком виде:
172.16.10.21    20
172.16.10.21    10
172.16.10.21     0
192.168.0.1      30
192.168.0.2      10
192.168.0.2      10
возникла необходимость просуммировать данные по второму столбцу, я применял команду awk, но она выдает суммарные строки вместе со строками - оригиналами.
    Не могли бы Вы подсказать как решить данную проблему.

Название: 2 столбца суммирование
Отправлено: NeoNox от 19 Июня 2003, 11:11:24

Читать документацию по awk
А при чем тут Perl?

Название: 2 столбца суммирование
Отправлено: Glader от 20 Июня 2003, 08:37:50

А если применить перл?

open (F, "1.txt") or die "Oops!";

while(){
   chomp;
   ($ip, $traff) = split / /;
   $result{$ip} += $traff;
}

map { print "$_ = $result{$_}\\n"; } keys %result;

Название: 2 столбца суммирование
Отправлено: YaroslavSSS от 20 Июня 2003, 10:58:31

Спасибо!