Posts Tagged ‘Счетчик нажатий’

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

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

Under : , , , ,

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

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

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

(далее…)