Как найти тип содержимого ссылки в Perl?

Question

Предположим, вы получили URL, 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 и запрашиваю только первые пару сотен байтов ресурсов.