如何在Perl中获取HTTP状态和Location头？

Question

我是Perl的新手，但需要在我正在开发的项目中使用它。我需要做的是检查URL是否有301重定向，如果有，请获取该位置。以下告诉我代码但不是位置：

use strict;
use warnings;
require LWP::UserAgent;

my $ua = LWP::UserAgent->new;
$ua->timeout(10);
$ua->env_proxy;
$ua->max_redirect(0);

my $response = $ua->get('http://www.actwebdesigns.co.uk/');

if ($response->is_success) {
    print $response->status_line;
    print $response->progress;
}
else {
    die $response->status_line;
}

有谁知道如何获取位置？

问候，

菲尔

Answer 1

$response->header方法来自HTTP::Headers，允许您检查从请求返回的特定标头。要查找Location标题，请使用

my $loc = $response->header( 'Location' );

Answer 2

将HTTP::Response（HTTP::Header）中包含的标头与$response->header一起使用。