Cho phép nói rằng tôi có "http://www.ritzcarlton.com" và chuyển hướng tôi đến "http://www.ritzcarlton.com/en/Default.htm". Có cách nào trong Perl để tìm url cuối cùng sau khi tất cả các chuyển hướng?Làm cách nào để tìm URL cuối cùng sau tất cả các chuyển hướng trong Perl?
Sử dụng LWP sẽ thực hiện theo các chuyển hướng cho bạn. Sau đó bạn có thể thẩm vấn đối tượng HTTP::Request để tìm ra URI mà nó yêu cầu.
use LWP::UserAgent qw();
my $ua = LWP::UserAgent->new;
my $response = $ua->get('http://www.ritzcarlton.com');
print $response->request->uri . "\n";
Output là:
Nếu bạn đang tự phát hành yêu cầu HTTP, thì URL chuyển hướng sẽ nằm trong tiêu đề trả về Location:. Nếu bạn đang sử dụng ứng dụng khách HTTP thích hợp như LWP::UserAgent hoặc WWW::Mechanize, đó là những gì bạn nên làm, chuyển hướng được xử lý tự động.