Perl LWP :: useragentキャプチャサーバレスポンスヘッダ

Question

ドキュメントのWebサーバに問い合わせています。ドキュメントと関連するサーバレスポンスヘッダ（特にContent-Type：...）を取得したいと思います。私はヘッダーを読む方法を見つけるのが難しいです。

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 

ので、この時点で私は、Webドキュメントを取得することができますが、私はそれで送られたサーバーにコンテンツタイプかを知りたい：ここに私のPerlスクリプトからいくつかのsnipletsがあり、私は、明確にするためにチェックアウトするエラーを残しました。残念ながら、これは常にbashの 'file'コマンドで見つかったMIMEタイプと同じではありません。このファイルメソッドは、.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');