Портал для веб-мастера
Вход пользователей
Поиск статей
WoWeb.ru » Статьи » Программирование для Web » PERL/CGI

Определение IP-адреса с помощью Perl

Что такое IP-адрес и для чего он нужен вебмастеру?

IP-адрес представляет собой уникальный 32-х битный идентификатор компьютеров, состоящий из четырех десятичных чисел, разделенных точками, например, 127.0.0.2. Взаимодействие или обращение к определенному компьютеру в Интернете осуществляется по его IP-адресу. В идеале каждый компьютер, с которого пользователь запрашивает страницы сайта, имеет постоянный уникальный IP-адрес, который, в свою очередь, передается серверу при запросах. На практике это не всегда так. Иногда нельзя отличить разных пользователей, работающих через один прокси-сервер по IP-адресам, т.к. в HTTP заголовках передается IP-адрес прокси-сервера, а не конкретного пользователя.

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

Переменные окружения CGI и доступ к ним в Perl

При запросе пользователем веб-страницы с сервера браузер посылает ему запрос по протоколу HTTP. Запрос браузера в соответствии с протоколом всегда содержит заголовок. В заголовке содержится имя запрашиваемого файла, путь к нему, версия протокола HTTP и, что наиболее интересно для нас, информация о пользователе, включая IP-адрес. В сценарии, написанном на языке Perl, эта информация доступна через ассоциативный массив (хеш) %ENV. Некоторые переменные окружения, используемые для идентификации пользователя, и их значения представлены в таблице 1.

Таблица 1 - Имена и значения некоторых переменных окружения, используемых для идентификации пользователя

Имя переменной окружения

Значение переменной

HTTP_COOKIE Записанные в браузере cookie для данного URL
HTTP_X_FORWARDED_FOR IP-адрес клиента при подключении через прокси
REMOTE_ADDR Удаленный IP-адрес клиента
REMOTE_HOST Имя удаленного узла, осуществляющего запрос

Для того, чтобы получить доступ к значению переменной окружения с помощью Perl необходимо просто использовать в качестве ключа в хеше %ENV имя этой переменной. Например, удаленный IP-адрес клиента можно получить, используя в хеше имя REMOTE_ADDR и ,соответственно, запись $ENV{ REMOTE_ADDR }.

Значения всех переменных окружения, доступных через хеш %ENV, можно получить, воспользовавшись простым скриптом:

#!/usr/local/bin/perl
## если perl в другом каталоге - #!/usr/bin/perl
print "Content-type: text/html\n\n";
## перебираем все ключи хеша и для каждого
## выводим запись "ключ" - "значение"
foreach $key( keys( %ENV ) ) {
print "$key - $ENV{ $key }
\n";
}


Запись IP-адреса в скалярную переменную

Последняя тонкость, которую нужно знать для определения IP-адреса на Perl, состоит в том, что при подключении пользователя через прокси-сервер, в переменной $ENV{ REMOTE_ADDR } будет храниться его IP-адрес, а не IP-адрес пользователя. Как указано в таблице 1, IP-адрес клиента при подключении через прокси находится в переменной $ENV{ HTTP_X_FORWARDED_FOR }. Теперь мы уже знаем все необходимое для определения IP-адреса на Perl. Все что осталось -- это написать соответствующий код:

## если ключ HTTP_X_FORWARDED_FOR определен
if ( $ENV{ HTTP_X_FORWARDED_FOR } ) {
## в переменную $ip записывается IP-адрес
## клиента, подключенного через прокси
$ip = $ENV{ HTTP_X_FORWARDED_FOR};
} else {
## в противном случае запишем в $ip
## удаленный IP-адрес клиента
$ip = $ENV{ REMOTE_ADDR };
}


Согласно этому программному коду в переменную $ip записывается IP-адрес клиента при подключении через прокси или удаленный IP-адрес, если подключение идет не через прокси.

Пример использования IP-адреса для учета повторных визитов

Ниже приведен программный код cgi скрипта на языке Perl, осуществляющий проверку повторных визитов. В том случае, если осуществлен первый визит будет выдано приветствие "Вы здесь впервые!", а если визит повторный -- "Вы здесь уже были!". IP-адреса машин, с которых уже осуществлялись визиты, записываются в файл ip_base на сервере.

#!/usr/local/bin/perl
## записываем IP-адрес в переменную $ip
if ( $ENV{ HTTP_X_FORWARDED_FOR } ) {
$ip = $ENV{ HTTP_X_FORWARDED_FOR };
} else {
$ip = $ENV{ REMOTE_ADDR };
}
$path_to_file = "ip_base";
$comment = "Вы здесь в первый раз!"
## открываем файл ip_base и ищем в нем
## IP-адрес из переменной $ip
open ( IP_BASE, "$path_to_file" );
while ( >IP_BASE< ) {
if ( /$ip/ ) {
$comment = "Вы здесь уже были!";
}
}
close ( IP_BASE );
## записываем в файл ip_base новый IP-адрес
## если пользователь здесь впервые
if ( $comment eq "Вы здесь в первый раз!" ) {
open ( ADD_IP, "<<$file" );
print ADD_IP "$ip\n";
close ( ADD_IP );
}
## Выводим html файл с комментарием
print "Content-type: text/html\n\n";
print ">h1<$comment>/h1<";

Добавлена: 2003-12-22
Источник статьи · Просмотров: 5041 · Рейтинг: 3.2

Всего комментариев: 0
Добавлять комментарии могут только зарегистрированные пользователи.
[ Регистрация | Вход ]

Категории раздела
Flash
Apache
WWW
PhotoShop
Веб-дизайн
Раскрутка и реклама
Базы данных
3D графика
Хостинг
Истории веб-мастеров
Web-технологии
Сетевая безопасность
Программирование для Web
Операционные системы

Новые статьи
Лучшие статьи
Популярные статьи
Комментируемые статьи
Разделы сайта
Скрипты
Статьи
Шрифты
Флэш исходники
HTML шаблоны
Партнерки
Клипарты
Смайлы
Фоны
Гифы
Иконки
Опрос сайта
Есть ли у вас свой сайт?
Всего ответов: 140573
Наша кнопка
WoWeb.ru - портал для веб-мастера