[PERL] туплю - разборка лога нгинкса

[Alex Keda]

сам догадался уже
дополировываю - одно исключение и внос данных в базу

Код: Выделить всё

foreach $stroka (@my_owners)
{
        ($domain, $uid, $user) = split(':', trim($stroka));
        $domains{$domain} = $user;
        $users{$user} = 0;
}
#print $users{"h4761"} . "\n";

# пеербираем лог
open(MYLOG, "< " . $ARGV[0]);
while (my $line = <MYLOG>)
{
        ($tmp0, $tmp1, $domain, $tmp2) = split(" ",$line);
        # bootv домен
        if(defined($domains{$domain})){ # домен в хэше есть
                $user = $domains{$domain};
                $users{$user} = $users{$user} + 1;
.............

да, и не выносить лог в массив а сразу с ним работать - быстрей получилось.
так что -400 метров рамы (перл почему-то под массвы рамы жрёт вдвое больше чем файл исходный весил)

[Хостинг HostFood.ru]

Тарифы на хостинг в России, от 12 рублей: https://www.host-food.ru/tariffs/hosting/
Тарифы на виртуальные сервера (VPS/VDS/KVM) в РФ, от 189 руб.: https://www.host-food.ru/tariffs/virtualny-server-vps/
Выделенные сервера, Россия, Москва, от 2000 рублей (HP Proliant G5, Intel Xeon E5430 (2.66GHz, Quad-Core, 12Mb), 8Gb RAM, 2x300Gb SAS HDD, P400i, 512Mb, BBU):
https://www.host-food.ru/tariffs/vydelennyi-server-ds/
Недорогие домены в популярных зонах: https://www.host-food.ru/domains/

[hizel]

а в пыхе помницо масивы и хэши в одну машонку сложили

[Alex Keda]

та пофигу чё куда сложили
работать реально удобней

[hizel]

я тебе уже говорил что твой моск испорчен пых пыхом?

[thefree]

ту ... лучше чем хеша и массивов реализованных в perl негде не видел.

[hizel]

дурацкий синтаксис в перле, в перле6 первым делом это выправлять собирались
http://perlgeek.de/en/article/5-to-6#post_01

[zg]

ту ... лучше чем хеша и массивов реализованных в perl негде не видел.

в плане?

а в пыхе помницо масивы и хэши в одну машонку сложили

пых, милый пых

[thefree]

ту ... лучше чем хеша и массивов реализованных в perl негде не видел.

в плане?

Работы с ними.