Счетчик нажатий на ссылку на Perl
Если Вам необходимо учитывать количество нажатий (кликов) на какую-то
определенную ссылку то для этого конечно же необходим скрипт делающий
это.
Ниже представлен простенький пример такого скрипта
#!/usr/bin/perl
$link_file="clcks.dat";#
Файл куда будет помещаться
статистика
$query=$ENV{'QUERY_STRING'};
# Открываем
файл
open(LOG,"$link_file");
# Помещаем строки в
хэш
@statArray=;
$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).
Источник: www.web-support.ru
|
