Реальный бенчмарк по разным языкам.

trainer> Религия не позволяет. [»]

"Если на пути к Истине встретишь Будду - убей Будду". Первая заповедь Дзэн

trainer> А Colorer-то ваш с C++ не очень дружит [»]

А что не так?
Разве что двоеточния за обозначения смайлов принял, так это в парсере баг, не в колорере. Подправлю потом

BrAB> P. S. что нужно курить чтобы начать понимать регулярные выражения? или это только после просветления? [»]

да нет, практика начинаешь с самых простых (в этом примере, как раз, ничего сложного) и понемногу усложняешь, усложняешь... Во-первых, perldoc perlre, во вторых - запросы на всяких форумах по Perl и т.п., можно тут у меня Ну а потом свой опыт будет расти. Многого в регекспах я и сам ещё не умею

А по примеру, кстати, можно было и split использовать, просто с регекспом на строчку меньше будет и без явных временных переменных

/^(.+)\s+(.+)\s+(.+)/

/.../ - ограничители выражения
^ - искать от начала строки
(.+) - любые символы (".") от одного и больше ("+"), результат занести в системную переменную (первое упоминание - $1, второе - $2 и т.д.)
\s+ - пробел (точнее, пробелы, табуляции и т.п. - "\s") от одного и больше

Т.е. это выражение первую цепочку символов заносит в переменную $1, потом пропускает пробелы, потом - вторую цепочку в $2, опять игнорируем пробелы, третью - в $3.

$bytes{"$2-$1"} += int($3)

Добавляем в хеш по ключу вида "192.168.0.1-222.222.222.222" наш размер.

for(sort keys %bytes) - цикл по отсортированным ключам кеша

my($dest, $src) = split/\-/; - разрезаем ключ "192.168.0.1-222.222.222.222" по знаку "-" (экранируется слешем, т.к. первый аргумент split'а - регексп, а минус там значащий символ)

...

Что там ещё

while(<>) - это просто цикл по строкам входного потока.

Часто используется неявная переменная $_

for(sort keys %bytes)

Полный формат был бы for $key (sort keys %bytes) - переменной цикла была бы $key. Но мы её не указываем, цикл пойдёт с $_;

split/\-/; - полный формат "split /\-/, $var;", но если переменная не указана, то разделяться будет текущая переменная $_

Вроде, всё разобрал

Balancer> Тут бы мог помочь многомерный хеш, но я не знаю, как с ними работать, что-то глючит или меня, или Perl [»]

А что это такое многомерный хеш?
В питоне это можно сделать с помощью вложенных словарей:

1. traffic = {}
2.  
3. for line in open('data2.log'):
4.         sline = line.split()
5.         if not traffic.has_key(sline[1]): traffic[sline[1]] = {sline[0] : 0}
6.         map = traffic[sline[1]]
7.         if not map.has_key(sline[0]): map[sline[0]] = 0
8.         map[sline[0]] += int(sline[2])
9.  
10. fres = open('python2.txt', 'w')
11. for map in traffic:
12.         print >> fres, map
13.         for i in traffic[map]:
14.                 print  >> fres, i, traffic[map][i]
15.         print >> fres

Dem_anywhere> Может проще загнать в базу и сделать выборку? [»]

Из пушки по воробьям

Dem_anywhere> Может проще загнать в базу и сделать выборку? [»]
вы будете смеяться, но этот скрипт как раз и предназначен чтобы загонять в базу уже обработанные данные. Дело в том, что это кусок системы подсчёта трафика (я билинг на диплом делаю). Просто я смутно подозреваю что если mysql пихать данные о заголовке каждого Ip пакета - то рано или поздно он здохнет. а так - храню выжимку

Balancer> MySQL на средней машине (~512мб оперативки и т.п.) на таких данных потянет до ~миллиона строк данных при приемлемом времени выборки (секунды). Так что прикинь, если он этот миллион забъёт за месяц, то, конечно, лучше сразу обработанные данные грузить (точнее - это всегда лучше ), если за 10 лет - то можно сразу в БД всё втягивать, а дальше уже выборки. [»]

Ну по прикидкам запросто 500 тысяч записей за сутки может быть. Так что я лучше уж скриптом.......