Perl WWW :: Mechanize (또는 LWP)가 리디렉션 URL을 가져옵니다.

Question

그래서 WWW::Mechanize을 사용하여 사이트를 크롤링합니다. 내가 같은 URL을 요청하는 경우를 제외하고는, 좋은 작품 :

http://www.levi.com/ 

나는 리디렉션 오전 :

http://us.levi.com/home/index.jsp 

그리고 내 스크립트 나는이 리디렉션이 발생했습니다 것을 알 필요가 무엇의 URL I 은 (으)로 리디렉션되었습니다. 어쨌든 WWW::Mechanize 또는 LWP으로이를 감지 한 다음 리디렉션 된 URL을 가져 오나요? 감사! 상태 코드는 3XX 인 경우

Answer 1

use strict; 
use warnings; 
use URI; 
use WWW::Mechanize; 

my $url = 'http://...'; 
my $mech = WWW::Mechanize->new(autocheck => 0); 
$mech->max_redirect(0); 
$mech->get($url); 

my $status = $mech->status(); 
if (($status >= 300) && ($status < 400)) { 
    my $location = $mech->response()->header('Location'); 
    if (defined $location) { 
    print "Redirected to $location\n"; 
    $mech->get(URI->new_abs($location, $mech->base())); 
    } 
} 

, 당신은 리디렉션 URL에 대한 응답 헤더를 확인해야합니다.