Получаем значения cookies.

sub get_cookie{
my (%cook, @temp, $i, $count, $key, $value);
(@temp)=split(/;/, $ENV{'HTTP_COOKIE'});
$count=@temp;
for ($i=0; $i<$count; $i++){
        $temp[$i]=~s/ //;
        ($key, $value)=split(/=/, $temp[$i]);
        $cook{$key}=$value;
        }
return %cook;
}


if ($ENV{HTTP_COOKIE}){$cookies=1; %cookies=get_cookie();}
else {$cookies=0;}

В результате мы имеем ассоциорованный массив %cookies.

Tagged with:  

Добавить комментарий

Ваш e-mail не будет опубликован. Обязательные поля помечены *

Можно использовать следующие HTML-теги и атрибуты: <a href="" title=""> <abbr title=""> <acronym title=""> <b> <blockquote cite=""> <cite> <code> <del datetime=""> <em> <i> <q cite=""> <strike> <strong>