Привет!

#-------------
#!/usr/bin/perl -w

use LWP::UserAgent;
use HTTP::Request;
use HTTP::Cookies;

$method = POST;
$url = "http://страничка.возвращающая.cookie";

$ua = LWP::UserAgent->new;
$header = HTTP::Headers->new();
# я ей ($url) посылаю некоторые данные
$req = HTTP::Request->new ($method, $url, $header, "variable=lala");

# беру результат
$resp = $ua->request($req);

# выгрызаю от туда cookie
$cjar = HTTP::Cookies->new;
$cjar->extract_cookies($resp);

# сохраняю в файл
$cjar->save("cookies.txt");
#-------------

В результате оказыаеьтся, что файле лежит только одна строка:
#LWP-Cookies-1.0

А при нечати $cjar (print $cjar->as_string):
Set-Cookie3: My Cookie="lala&meme&kuku"; path="/"; domain="страничка.возвращающая.cookie"; path_spec; discard; version=0

в чём может быть проблема?

• Почему это может не работать..., Nikolaev D., 10:42 , 24-Апр-03, (1)
  • Почему это может не работать..., Pan, 10:55 , 24-Апр-03, (2)