VPF::Perl И Cookies - Форум программистов

*eug*

Дата 24.11.2003, 22:36 (ссылка)

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

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 119
Регистрация: 17.7.2003

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

Покажите пожалуйста как работать с cookies?

Nobody

Дата 25.11.2003, 16:58 (ссылка)

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

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 838
Регистрация: 25.8.2003
Где: Россия, Москва

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

Получение куков (или кукей? :-D ):

Код

$q = CGI->new();
$value1 = $q->cookie('key1');
$value2 = $q->cookie('key2');

Установка кук:

Код


$cookie1 = new cookie(-name => 'key1', value => 'value1', -expires => '+1m'); #Минутная печенька
$cookie2 = new cookie(-name => 'key2', value => 'value2', -expires => '+1d'); #Дневная печенька
$cookie3 = new cookie(-name => 'key3', value => 'value3', -expires => '+1h'); #Часовая печенька
$cookie4 = new cookie(-name => 'key4', value => 'value4', -expires => '+1M'); #Месячная печенька
$cookie5 = new cookie(-name => 'key5', value => 'value5', -expires => '+1y'); #Годичная печенька

#Удаление куки. Для этого ставим expires в прошлом.
$cookie6 = new cookie(-name => 'key6', value => 'value6', -expires => '-1y');
print header (-cookie => [$cookie1, $cookie2, $cookie3, $cookie4, $cookie5, $cookie6]);

Это сообщение отредактировал(а) Nobody - 25.11.2003, 17:00

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

Алгоритм помещения вопросов на форуме
Выражаем спасибо вот ТАК
Use the Source, Luke!

Dan.

Дата 24.12.2003, 20:36 (ссылка)

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

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 9
Регистрация: 24.12.2003

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

Я ставлю куки вручную, без использования CGI.pm

Код


# # # # # # # # # # # # # # # # # # # #
# Подпрограмма установки куков            #
# # # # # # # # # # # # # # # # # # # #
sub set_cookie{
	my ($key, $value)=@_;
	print "Set-Cookie: $key=$value; path=/; expires=Thu, 01-Jan-2099 00:00:00 GMT;\n";
}

Теперь ставим куки так:

Код


set_cookie('name1','value1');
set_cookie('name2','value2');

Чтобы удалить куку ставим значение куки равное ''

Код


set_cookie('name1','');

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