Пятница, 22-Сентябрь-2017, 4.31 PM

Dletemplate.ru

Категории раздела
Наш опрос
Сколько тебе лет?
Всего ответов: 347
Статистика

Онлайн всего: 1
Гостей: 1
Пользователей: 0

Статьи

Главная » Статьи » Perl

Работа с cookies на Perl

Cookies - небольшие файлы сохраняемые на машине клиента, позволяющие хранить персональную информацию для каждого пользователя на стороне клиента. В Perl для работы с Cookies используется модуль CGI::Cookie

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

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

Единтефикация пользователя, конечно, не единственное применение Cookies. Уважаемый читатель может пользоваться Cookies для каких-то своих, ему ведомых целей.

Итак, как можно (и нужно) работать с Cookies на Perl?

Во-первых, для работы необходимо подключить модуль:

use CGI::Cookie;

Этот модуль позволит Вам получить доступ для манипуляций с Cookies.

Вторым шагом может служить запись Cookies:
Сначала надо создать Cookie:

$c = new CGI::Cookie(-name => 'SOMENAME',
    -value => 'SOMEVALUE',
    -expires => '+3M',
    -domain => '.someserver.com',
    -path => '/cgi-bin'
    -secure => 1
);

Ключи -name и -value передают пользователю данные которые Вы хотите записать пользователю в формате Ключ - Значение соответственно.
Ключ -expires указывает время жизни Cookie на машине пользователя. В данном примере время жизни 3 месяца. Если время жизни устанавливается в ноль то Cookie существует только тогда, когда запущен браузер и не записывается на диск. После закрытия браузера такой Cookie аннулируется.
Ключ -domain указывает полное или частичное имя сервера, для которого Cookie имеет силу. Браузер возвратит Cookie любому хосту, который соответствует полному или частичному имени указанному в этом ключе. На-пример, если Вы укажете имя домена .somesrver.com, то Cookie будет возвращено любому поддомену этого домена, будь то www.somesrver.com или vasya.somesrver.com. Если же этот ключ не определен, то будет установлено имя хоста по умолчанию, с которого был записан Cookie.
Ключ -path служит для указания пути к скриптам которые используют этот Cookie. Если Вы указываете путь /cgi-bin, то все скрипты в этом каталоге и в его подкаталогах получат Cookie, но скрипты расположенные в других каталогах, не являющихся подкаталогами /cgi-bin этот Cookie не получат.
Если установлен ключ -secure, то Ваш Cookie будет передаваться только по протоколу SSL. По обычному HTTP протоколу он передаваться не будет.

Дальше нобходимо передать созданный Cookie браузеру пользователя:

print header(-cookie=>$c);

Теперь как получить Cookie...

%cookies = fetch CGI::Cookie;

В результате этой операции мы получим хэш со значениями переданного от пользователя Cookie. Далее мы можем манипулировать полученными значениями

$SOMECOOKIE = $cookies{'SOMENAME'}->value;

После этой операции переменная $SOMECOOKIE будет иметь значение 'SOMEVALUE'.

Категория: Perl | Добавил: mas (19-Сентябрь-2006)
Просмотров: 588 | Рейтинг: 1.0/1
Всего комментариев: 0
Имя *:
Email *:
Код *: