Управление куки в Perl

Question

Я работаю над сценарием Perl, который должен получить файл с сервера.Сервер требует проверки подлинности, которая обрабатывается внутри другого сервера.Что мне нужно сделать, чтобы получить файл, это сначала POST на сервер аутентификации, который вернет два куки.Затем мне нужно отправить эти куки через GET на целевой сервер, который имеет файл, который мне нужен.Я ищу в сети и даже здесь примеры, но мне все еще неясно, как это сделать.Может кто-нибудь показать мне пример того, как это сделать?

Answer 1

Создать объект LWP::UserAgent, который реализует файлы cookie, очень просто:

my $ua = LWP::UserAgent->new();
$ua->cookie_jar({});

См. статью для получения дополнительных примеров.

Answer 2

Конечно, вы можете использовать Net :: HTTP и посмотреть на возвращенные заголовки, чтобы извлечь куки, а затем передать их обратно, когда вы используете write_request (), но это вряд ли удобно.