-
Вебмастеру
(
http://forum.oszone.net/forumdisplay.php?f=22)
Perl : Установлены ли Cookies?
Есть примерно следующий код:
Код:
#!/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? :oszone: |
| vadimiron |
19-02-2005 16:49 299926 |
Проверить, установлена ли такая кука
вот код, который выдерает все куки из 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;
}
Я сам в ФПЕРЛ не разбираюсь, надеюсь, что помог :) |
Время: 13:16.
© OSzone.net 2001-
