Форум программистов [Powered by Invision Power Board]

Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате

Форум программистов > Perl: Общие вопросы > Помогите с выбором инф. из файла

Автор: pavel87 20.4.2007, 16:28

Здравствуйте.
Подскажите пожства вариант решения такой задачи: хотя бы алгоритм
есть файл вида

Код


dst_ip src_ip bytes_count
192.168.100.5 211.1.1.1 555
192.168.100.5 129.42.60.212 5701
192.168.100.8 143.166.224.202 104
192.168.100.8 123.123.123.123 2575
192.168.100.9 143.166.224.202 26299
192.168.100.9 143.166.224.202 5237

надо подсчитать сумму байт для каждого dst_ip

Автор: JAPH 20.4.2007, 17:26

Один из вариантов:

Код

use strict; use warnings;
my %t;
while (<>) { $t{$1} += $2 if /^([.\d]+)\s+[.\d]+\s+(\d+)$/ }
print "$_ => $t{$_}\n" for keys %t;