14.04.2007, 20:45
|
|
Постоянный
Регистрация: 06.06.2006
Сообщений: 515
Провел на форуме:
1985206
Репутация:
963
|
|
Парсить ничего не надо, IO::Socket сделан для обмена данными непосредственно между клиентом и сервом, без протоколов-надстроек, а для HTTP есть LWP::UserAgent
Код:
my $ua = LWP::UserAgent->new(agent => 'FF 1.5', cookie_jar => {});
После запроса, $ua->{cookie_jar} будет содержать объект HTTP::Cookies со всеми куками.
ЗЫ: Ессесно не забываем сделать use HTTP::Cookies |
|
|