Perl LWP::useragent 捕获服务器响应 header

Question

我正在向网络服务器查询文档，并且想要捕获文档和相关服务器响应 header (尤其是 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

此时我可以检索 Web 文档，但我想知道服务器随其发送的 Content-Type 是什么。不幸的是，这并不总是与 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');