Forum Webscript.Ru

Программирование => Perl => Тема начата: Bum от 29 Декабря 2001, 07:51:29

Название: Киньте плиз кусок кода.
Отправлено: Bum от 29 Декабря 2001, 07:51:29

Нужно разбить куки в хеш, не использую никаких  модулей,
а только стандартные функции и переменную
$env{\'http_coockie\'}

Название: вот
Отправлено: Green Kakadu от 31 Декабря 2001, 02:53:45

раз никто не ответил...

sub cook_me_babe {
#-------------------------
my $cook_me=($ENV{HTTP_COOKIE} || $ENV{COOKIE});
my @cook=split(/;/, $cook_me);
my($key, $val, %cook);
foreach my $kok(@cook){
  ($key, $val )=split(/=/, $kok);
#Ops, а енто сделать забыл, если б не flamio...
#т.е. добавлено, исправлено:
   $key =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;
   $key =~ tr/+/ /;
   $val =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;
   $val =~ tr/+/ /;

  $cook{$key}=($val||\'\');
}

return %cook;
}

Цитировать

Нужно разбить куки в хеш, не использую никаких модулей,

Все-таки не удержусь - Cookies.pm из пакета CGI.
Сам по себе небольшой модуль и очень полезный.
Иногда куки просто удобно проверять через регулярные выражения (если в куках проверяется наличие идентификатора)

ЗЫ: в строке $cook{$key}=($val||\'\');
\'\' - это не двойные кавычки ,а две одинарных \'
:) в Cookies.pm примерно такой же код, но более "корректный по смыслу" и доп. проверки контекста там есть - можно и оттуда parse выдрать.

Название: ... resume next ...
Отправлено: flymio от 05 Января 2002, 19:38:35

sub get_cookie
{
 local($chip, $val);
 foreach (split(/; /, $ENV{HTTP_COOKIE} || $ENV{COOKIE}))
 {
    s/\\+/ /g;
    ($chip, $val) = split(/=/,$_,2);
    $chip =~ s/%([A-Fa-f0-9]{2})/pack("c",hex($1))/ge;
    $val =~ s/%([A-Fa-f0-9]{2})/pack("c",hex($1))/ge;
    $cookie{$chip} = $val;
  }
}