[ главная ]   [ рейтинг статей ]   [ справочник радиолюбителя ]   [ новости мира ИТ ]



Ответов: 0
25-02-12 07:01







   Web - программирование
PHP


ASP






XML



CSS

SSI





   Программирование под ОС











   Web - технологии








   Базы Данных









   Графика






Данные




Web - программирование / PERL /

Графический счетчик на Perl

Создавая текстовый счетчик, мы ограничены свойствами текста в браузере. Если же Вы хотите чегото из ряда вон выходящего, удовлетворяющего Вашему полету фантазии, то Вам подойдет как раз описываемая тема.

Данный пример демонстрирует работу простого графического счетчика.
Для работы этого счетчика необходимо создать графическое изображение, которое послужит базой для счетчика.

Это изображение надо сохранить под именем counter.png
В скрипте использована библиотека GD, перед тем как пользоваться этой библиотекой, узнайте у хостера, подключена ли эта библиотека. Теперь сам скрипт:

#!/usr/bin/perl
use GD;

$dat_file="counter.dat"; # Файл счетчика
$log_file="counter.log"; # Файл списка IP

# Открывем файл счетчика и считываем текущий счет
# в переменную $count
open(DAT,"$dat_file");
$count=<DAT>;
close(DAT);
chop($count) if $count =~ / $/; # Удаляем символ конца строки

$count++; # Увеличиваем счетчик

# Записываем данные обратно в файл
open(DAT,">$dat_file");
print DAT ("$count");
close(DAT);

# Создаем новое изображение из файла
$im = newFromPng GD::Image('counter.png');
# Назначаем черный цвет
$black = $im->colorAllocate(0,0,0);
# Выводим счет на изображение
$im->string(gdTinyFont,5,20,"$count",$black);

# Выводим изображение в стандартный поток вывода
binmode STDOUT;
print "Content-Type: image/png ";
print $im->png;

# Записываем IP посетителя
open(LOGFILE,">>$log_file");

print LOGFILE ("$ENV{'REMOTE_ADDR'} ");

close(LOGFILE);


Для работы этого скрипта необходимо создать два файла, для ведения счета и для списка IP. В файле счета необходимо установить начальное значение счетчика, сделать это можно в любом текстовом редакторе.
Для вывода счетчика в html используйте

<IMG SRC="cgi-bin/counter.cgi" WIDTH="88" HEIGHT="31" BORDER=0>




Комментарии

olqnimzamy
30-07-2011   
BkH1je , [url=http://cmumbwcpsiju.com/]cmumbwcpsiju[/url], [link=http://gkzlgralqtkl.com/]gkzlgralqtkl[/link], http://xlhyumzlhxot.com/

aitssshvz
29-07-2011   
twMF7E <a href="http://cqewprcmfpjd.com/">cqewprcmfpjd</a>

gufmvn
26-07-2011   
bLSm2t , [url=http://xswzhgoxmony.com/]xswzhgoxmony[/url], [link=http://pgwxgpfrtwsg.com/]pgwxgpfrtwsg[/link], http://fueopwsvgxlg.com/

ezknqu
26-07-2011   
tGFpOR <a href="http://wfpjalfveeyf.com/">wfpjalfveeyf</a>

Lenna
26-07-2011   
Now thats sbutle! Great to hear from you.

 Ваш комментарий к данному материалу будет интересен нам и нашим читателям!



Последние статьи: Web - программирование / PERL /

CGI интерфейс
24-10-2009   

Большое количество World Wide Web приложений основано на использовании внешних программ, управляемых Web сервером... подробнее

Кол. просмотров: общее - 4289 сегодня - 1

Upload File
24-10-2009   
Кол. просмотров: общее - 3417 сегодня - 2

Программирование для Веб: Загрузка файлов на сервер и посылка e-mail с вложениями
24-10-2009   

Одним из популярнейших вопросов во всевозможных форумах является вопрос «Как загрузить файл на сервер?». А ведь на самом деле это не так сложно, как кажется на первый взгляд. И чтобы не было совсем легко – пусть скрипт, который приведен ниже еще и посылает этот файл по почте, в виде вложения... подробнее

Кол. просмотров: общее - 3700 сегодня - 2

Защита WWW-сценариев от несанкционированного копирования и модификации
24-10-2009   

В статье рассматривается один из основных подходов к генерации динамического контента в среде веб-приложений, а именно использование веб-сценариев и CGI, и применительно к ним, методы защиты исходных текстов от несанкционированного копирования и модификации... подробнее

Кол. просмотров: общее - 3467 сегодня - 3

Как защитить мою программу, чтобы никто не смог её прочитать?
20-10-2009   

Disclaimer: все приведённые примеры предназначены для демонстрации принципов, а вовсе не являются готовыми к использованию решениями... подробнее

Кол. просмотров: общее - 3471 сегодня - 2



  WWW.COMPROG.RU - 2009-2012 | Designed and Powered by Zaipov Renat | Projects