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

我正在向Web服务器查询文档，并且想要捕获文档和相关的服务器响应 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文档，则此文件方法将失败。

最佳答案

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');

关于Perl LWP::useragent捕获服务器响应 header ，我们在Stack Overflow上找到一个类似的问题：https://stackoverflow.com/questions/9725064/