VPF::Вывести пользователей и кол-во посещенных страниц

EctelL

Дата 2.7.2011, 16:30 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 4
Регистрация: 2.7.2011

Репутация: нет
Всего: нет

Здравствуйте!

Необходимо создать файл, в котором по каждому пользователю (файл Proxy.log)
отражается количество посещенных им страниц.

Вот, что сам написал, но выводит все ключи и значения равные 1.

Код


#!/usr/bin/perl
open(f1,"Proxy.log");
open(f2,"> Vivod.txt");
@input=readline(f1);
$col=$#input;
for ($i=0; $i<=$col; $i++){
    @array=split(' ',$input[$i]);
        %user=(@array[2]);
        if (exists $user{@array[2]}){
            $user{@array[2]}++        
            }
        else{
            $user{@array[2]}=1;
                        }
    foreach $key(sort{$user{$a} cmp $user{$b}} keys %user){            
    print(f2 "Пользователь:$key посетил $user{$key} страниц\n");}    
    }
close(f1);
close(f2);

SkoobyDoo

Дата 2.7.2011, 17:11 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 73
Регистрация: 4.10.2007

Репутация: нет
Всего: нет

В каком формате файл Proxy.log?

EctelL

Дата 2.7.2011, 17:34 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 4
Регистрация: 2.7.2011

Репутация: нет
Всего: нет

Первые 2 строки:

192.168.0.42 - sbo [22/Sep/2003:08:00:46 +0300] "CONNECT login.icq.com:443 HTTP/1.0" 200 379 New
192.168.0.40 - pro_fin [22/Sep/2003:08:00:55 +0300] "GET http://www.finam.ru/nmain.css HTTP/1.0" 304 0 Cache

alezzz

Дата 2.7.2011, 18:53 (ссылка)

(нет голосов)

Загрузка ...

сплю...

Профиль
Группа: Участник
Сообщений: 499
Регистрация: 17.8.2009

Репутация: 1
Всего: 14

Обращение к элементу массива: $array[i].

%user=(@array[2]); -- в цикле, получается к %user не добавляется новый ключ, и как это вообще работает что-то не соображу.

начните с perlintro.

а по теме, я бы так сделал:

Код


while (<f1>){
    $user = (split ' ')[2];
    $users{$user}++;
}

foreach $user (keys %users){
    print f2 "$user: $users{$user}\n";
}

EctelL

Дата 2.7.2011, 19:59 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 4
Регистрация: 2.7.2011

Репутация: нет
Всего: нет

Я только знакомлюсь с perl'ом. Разбираюсь по немногу.

За код спасибо smile

1 Пользователей читают эту тему (1 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Perl: Общие вопросы \| Следующая тема »