Большой архив статей, книг, документации по программированию, вебдизайну, компьютерной графике, сетям, операционным системам и многому другому
 
<Добавить в Избранное>    <Сделать стартовой>    <Реклама на сайте>    <Контакты>
  Главная Документация Программы Обои   Экспорт RSS E-Books
 
Поиск по сайту


 

   Интернет технологии -> Perl -> Счетчик нажатий на ссылку на Perl


Счетчик нажатий на ссылку на 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

Ссылки по теме
Создание пакетов и модулей в Perl
Счетчик посещений на Perl
Бесполезный Perl и общая теория улучшения мира
Использование шаблонов при программировании web-приложений в среде Perl
PERL Вопросы и ответы ( FAQ )
Безопасное программирование на языке Perl
Практический Перл для начинающего
 

Компьютерная документация от А до Я - Главная

 

 
Интересное в сети
 
10 новых программ
CodeLobster PHP Edition 3.7.2
WinToFlash 0.7.0008
Free Video to Flash Converter 4.7.24
Total Commander v7.55
aTunes 2.0.1
Process Explorer v12.04
Backup42 v3.0
Predator 2.0.1
FastStone Image Viewer 4.1
Process Lasso 3.70.4
FastStone Image Viewer 4.0
Xion Audio Player 1.0.125
Notepad GNU v.2.2.8.7.7
K-Lite Codec Pack 5.3.0 Full


Наши сервисы
Рассылка новостей. Подпишитесь на рассылку сейчас и вы всегда будете в курсе последних событий в мире информационных технологий.
Новостные информеры. Поставьте наши информеры к себе и у вас на сайте появится дополнительный постоянно обновляемый раздел.
Добавление статей. Если вы являетесь автором статьи или обзора на тему ИТ присылайте материал нам, мы с удовольствием опубликуем его у себя на сайте.
Реклама на сайте. Размещая рекламу у нас, вы получите новых посетителей, которые могут стать вашими клиентами.
 
Это интересно
 

Copyright © CompDoc.Ru
При цитировании и перепечатке ссылка на www.compdoc.ru обязательна. Карта сайта.
 
Rambler's Top100