|
|
ru.cgi.perl- RU.CGI.PERL ------------------------------------------------------------------ From : George 2:5030/855.666 04 May 2001 19:13:20 To : Oleg N. Kotenko Subject : Как получить cookie --------------------------------------------------------------------------------
Сейчас (/*Пятница 04 Мая 2001*/ в /*19:13*/) отвечу!
/*Пpиветствую тебя*/, *Oleg N. Kotenko*!
ONK> use CGI::Cookie;
ONK> %cookies = fetch CGI::Cookie;
ONK> $id = $cookies{'ID'}->value;
$cookie = $ENV{'HTTP_COOKIE'};
if ($cookie=~/${name}=([a-z]+)/i)
{$cookie = $1;}
else
{$cookie="";};
А pазве таким обpазом pаботать нельзя?
*і* *Best Regards* /*ICQ: 36460204*/.
*і* *George* /*e-mail: GeorgeVB@AltaVista.NET*/.
... [Team MoM] [Team БЕЗ АЛКОГОЛЯ] [Team HЕТ КУРЕHИЮ] [Team стадо котов]
--- ------ Смеpть стоит того, чтобы жить
* Origin: А любовь стоит того, чтобы ждать. (C) В. Цой (2:5030/855.666)
Вернуться к списку тем, сортированных по: возрастание даты уменьшение даты тема автор
Архивное /ru.cgi.perl/47313af2ffdb.html, оценка из 5, голосов 10
|