Как считать список установленных cookies в хеш. |
[исправить] |
sub load_cookies{
local (*cook_arr) = @_;
foreach (split(/\;\s*/,$ENV{'HTTP_COOKIE'})){
my ($cur_key, $cur_val) = split(/\=/);
$cook_arr{"$cur_key"} = $cur_val;
}
}
load_cookies(*cooks); print $cooks{"cook_name"};
|
|
|
10.09.2002
|
Раздел: Корень / Программисту и web-разработчику / Perl / Полезные подпрограммы на Perl / Подпрограммы для WEB |