Perl : Установлены ли Cookies?

Perl : Установлены ли Cookies?

Oaxa

Пользователь

Сообщения: 84
Благодарности: 0

Профиль | Отправить PM | Цитировать

Есть примерно следующий код:

Код:

#!/usr/bin/perl
use strict;
use locale;
use CGI qw(-no_xhtml -nosticky :standard);
...
my $session_cookie = start_session();
print header(-charset=>'windows-1251', -cookie=>$session_cookie);
print start_html(...);
...

В жирной строке я пытаюсь установить куки клиенту, но совершенно непонятно, принял ли он их? Есть какая-то возможность определить, принял ли клиент cookie?

-------
Adios, amigos, nos encontramos mas tarde, nos encontramos...

Отправлено: 00:55, 15-02-2005

vadimiron

Ветеран

Сообщения: 1864
Благодарности: 120

Профиль | Отправить PM | Цитировать

Проверить, установлена ли такая кука
вот код, который выдерает все куки из ENV

Код:

sub getCookies {
	# cookies are seperated by a semicolon and a space, this will split
	# them and return a hash of cookies
	local(@rawCookies) = split (/; /,$ENV{'HTTP_COOKIE'});
	local(%cookies);

	foreach(@rawCookies){
	    ($key, $val) = split (/=/,$_);
	    $cookies{$key} = $val;
	} 

	return %cookies; 
}

Я сам в ФПЕРЛ не разбираюсь, надеюсь, что помог