perl - 如何检查 302 http 响应

Question

我正在尝试检查重定向页面的标题，并获取 302 状态，
但是使用我的代码，我得到了转发页面的 200 OK 状态。我应该怎么做才能获得重定向页面 302 状态。我的代码:

use LWP::UserAgent;

my $ua = LWP::UserAgent->new();
my $req = HTTP::Request->new('GET','http://host.com');
my $res = $ua->request($req);
print $res->status_line;

Answer 1

初始化 $ua 后，将它的 requests_redirectable 属性设置为 undef:

$ua->requests_redirectable(undef);

这样 LWP::UserAgent 不会跟随重定向，而是在第一个请求后停止。

然后 yoy 可以使用以下方法获取代码(“302”、“301”等):

$res->code()

这是 official docs for LWP::UserAgent .