|
ru.perl
- RU.PERL ----------------------------------------------------------------------
From : Lishtovny Denis 2:5020/400 07 May 2001 18:32:55
To : All
Subject : Re: Хитрая сортировка
--------------------------------------------------------------------------------
> С обучения себя программированию или покупки программиста (на данную
> конкретную задачу или вообще). Эхотаг-то тут при чем?
смысл в том что мне нужно сделать анализатор и разбор логов сквида
что я делаю:
я создаю хеш с ключом {IP,URL} присваиваю ему значение Кол-во байт.
если хеш с таким клучем сущ. то суммирую байты.
open (f1,"squid.log") or die ("Erro");
$count = 0;
$t1 = 0;
while (<f1>)
{
(@args) = split(/\s+/,$_); #заношу нужные поля в
масив
($_, $url) = split (/:\/\//,$args[6]); # чтобы вместо http://www
было www
@host = split(/\/+/,$url); #эти сплыты не так важны -
они потом будут переделаны
$t = "$args[2],$host[0]";
push (@tmp,$t);
if (exists $ip_hash{$tmp[$count]})
{
$t1 = $t1 + $args[1];
$ip_hash{$tmp[$count]} = $t1;
}
else {
$t1 = $ip_hash{$tmp[$count]} = $args[1];
}
$count ++;
}
foreach $key (sort keys %ip_hash)
{
print "$key $ip_hash{$key}\n";
}
этот скрип считает первые 2 ключа правильно, а в остальных суммы уже
путаются
--
Отправлено через сервер Talk.Ru - http://www.talk.ru
--- ifmail v.2.15dev5
* Origin: Talk.Ru (2:5020/400)
Вернуться к списку тем, сортированных по: возрастание даты уменьшение даты тема автор
|
Re: Хитрая сортировка 