Perl에서 HTTP 상태 및 위치 헤더를 얻으려면 어떻게해야합니까?

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

$response->header와 HTTP::Response (HTTP::Header)에 포함 된 헤더를 사용합니다.