如何在Perl中找到链接的内容类型？

Question

假设您有一个网址http://site.com。如何在不下载的情况下找出内容类型是什么？ Perl的WWW::Mechanize或LWP可以发出HEAD请求吗？

Answer 1

您可以按照以下方式使用head() LWP方法

use LWP::UserAgent;
$ua = LWP::UserAgent->new;
$ua->head('<url>');

Answer 2

以下是一个完整的例子：

use LWP::UserAgent;

$ua = LWP::UserAgent->new;
my $response = $ua->head( 'http://www.perl.com' );

my $type = $response->content_type;

print "The type is $type\n";

有些服务器会阻塞HEAD请求，所以当我这样做并得到任何类型的错误时，我会使用GET请求重试它，并且只请求前几百个字节的资源。