Fatal编程技术网
  • perl/
  • 在Perl中进行所有重定向之后，如何找到最终URL？

在Perl中进行所有重定向之后，如何找到最终URL？

perl url redirect

在Perl中进行所有重定向之后，如何找到最终URL？,perl,url,redirect,Perl,Url,Redirect,假设我有“”，这会将我重定向到“”。在Perl中，有没有一种方法可以在所有重定向之后找到结束url 如果您自己发出HTTP请求，则重定向URL将位于返回的位置：头中。如果您使用的是正确的HTTP客户机，如或，这是您应该做的，重定向将自动处理 使用LWP将遵循您的重定向。然后，您可以查询HTTP:：Request对象以找出它请求的URI use LWP::UserAgent qw(); my $ua = LWP::UserAgent->new; my $response = $ua-&g

假设我有“”，这会将我重定向到“”。在Perl中，有没有一种方法可以在所有重定向之后找到结束url

如果您自己发出HTTP请求，则重定向URL将位于返回的
位置：
头中。如果您使用的是正确的HTTP客户机，如或，这是您应该做的，重定向将自动处理

使用LWP将遵循您的重定向。然后，您可以查询
HTTP:：Request
对象以找出它请求的URI

use LWP::UserAgent qw();

my $ua = LWP::UserAgent->new;

my $response = $ua->get('http://www.ritzcarlton.com');

print $response->request->uri . "\n";
输出为：