Заголовки ответов сервера захвата Perl LWP :: useragent

Question

Я запрашиваю веб-сервер для документа и хочу получить как документ, так и соответствующие заголовки ответа сервера (особенно Content-Type: ...).У меня проблемы с поиском, как читать заголовки.Вот некоторые фрагменты из моего Perl-скрипта, для ясности я оставил сообщение об ошибке:

use LWP::UserAgent;
my $ua = LWP::UserAgent->new;
$ua->agent( 'requiredCustomUserAgent' ); # I'm required to set a custom user agent
$imageData = $response->content;         # This is the received document

Итак, на этом этапе я могу получить веб-документ, но я хочу знать, с каким Content-Type отправляет серверЭто.К сожалению, это не всегда совпадает с типом mime, найденным командой bash 'file'.Этот метод файла не работает в случае документов .js или .css.

Answer 1

http://search.cpan.org/perldoc?HTTP::Response

use LWP::UserAgent;
my $ua = new LWP::UserAgent;
my $response = $ua->get("http://google.co.uk");

print $response->headers()->as_string;
print $response->header('content-type');