Счетчик нажатий на ссылку на Perl

Автор: Topol Суббота, Август 11th, 2012 Нет комментариев

Рубрика: Perl

Если Вам необходимо учитывать количество нажатий (кликов) на какую-то определенную ссылку то для этого конечно же необходим скрипт делающий это.

Ниже представлен простенький пример такого скрипта

#!/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 ";


В качестве запроса этому скрипту передается ссылка на которую надо перейти, например click.cgi?http://webprog.vov.ru. Пользователь нажав на такую ссылку попадет на сайт http://webprog.vov.ru, а в файл указанный в переменной $link_file будет записана информация вида количество_нажатий|ссылка. Для работы необходимо создать файл указываемый в $link_file и установить ему права на запись (для Unix).

Источник:  internet-technologies.ru

Оставить комментарий

Чтобы оставлять комментарии Вы должны быть авторизованы.

Похожие посты