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

Я запрашиваю веб-сервер для документа, и я хочу захватить как документ, так и соответствующие заголовки ответа сервера (особенно 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.

5
задан jippie 15 March 2012 в 17:32
поделиться