#!/usr/bin/perl

$link_file="clcks.dat";# Файл куда будет помещаться статистика
$query=$ENV{'QUERY_STRING'};

# Открываем файл
open(LOG,"$link_file");

# Помещаем строки в хэш
@statArray=<LOG>;
$islink=0;

# Проходим по всем строкам
for($i=0;$i<=@statArray-1;$i++){
    # Разделяем строку на счет и ссылку
    ($count,$lnk)=split(/|/,@statArray[$i]);
    # Удаляем возврат каретки
    chop($lnk) if $lnk =~ / $/;
    # Проверяем есть ли запрошенная ссылка
    # в базе
    if($lnk eq $query){
        # если есть......
        # инкриминируем счетчик
        $count++;
        Перезаписываем строку в хэш
        @statArray[$i]="$count|$lnk ";
        $islink=1;
        break;
    }
    }
close(LOG);
open(LOG,">$link_file");

#Записываем хэш в файл
print LOG @statArray;
# Если ссылки в базе нету, добавляем
if($islink==0){print LOG "1|$query ";}

close(LOG);

# Переходим на ссылку
print "Location: $query ";