VPF::Графический счетчик на Perl - Форум программистов

Alex

Дата 17.12.2004, 23:46 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Экс. модератор
Сообщений: 4147
Регистрация: 25.3.2002
Где: Москва

Репутация: нет
Всего: 162

Графический счетчик создается с помощью библиотеки 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>

--------------------

Написать можно все - главное четко представлять, что ты хочешь получить в конце.

1 Пользователей читают эту тему (1 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Perl: Общие вопросы \| Следующая тема »