LWP :: UserAgent를 사용하여 HTTP 헤더 값을 테스트하는 방법

Question

답변을 얻을 때 더 많은 질문이 게시 될 수 있습니다.

현재 대학에서 SAT 점수 데이터가있는 파일을 자동으로 다운로드하는 데 사용되는 Perl 스크립트 문제를 해결하려고합니다.

아이디어는 특정 계정의 이메일을 통해 읽는 것입니다. (URL에서 사용되는) 사이클 번호를 꺼내십시오. 여러 개의 URL을 함께 묶어 라. 그런 다음 LWP::UserAgent을 사용하여 서버에서 파일을 가져 와서 다른 펄 매직을 수행하십시오.

내 조사에서 URL을 수동으로 입력하면 (실제로 스크립트가 사용자에 의해 실행되도록 제한되며주기 번호가 매번 교체 됨) 실제 작동하는 것으로 나타났습니다.

'_uri_canonical' => $VAR1->{'_request'}{'_uri'} 

을 성공할 요청에 존재하지만 : 전송 응답 객체를 검사에서

다시 나는 다음 줄에 실패 요청에서 누락되는 (우선) 나타났습니다.

실패한 요청에서이 행이 누락 된 이유를 알 수있는 사람이 있으면 감사의 말을 전합니다. 그러나 그것은 제가 묻는 것이 아닙니다.

제 질문은 거부 이유를 알아보기 위해 추가 조사에 관한 것입니다. LWP::UserAgent에 대한 문서에서

내가 이것을 발견 :

Error responses that LWP generates internally will have the "Client-Warning" header set to the value "Internal response". If you need to differentiate these internal responses from responses that a remote server actually generates, you need to test this header value.

내 질문 : 어떻게 실제로 헤더 값을 테스트합니까? (모든 무지를 용서, 나는 내 대학의 IT 부서에서 인턴 해요)

Answer 1

그것은 실제로 당신이로 얻을 수있는 헤더의 메시지의 다양한 배치하는 것은 다음과

는

if (my $cw = $response->header('Client-Warning')) { 
    die("Internal error: $cw\n"); 
} 

Internal response 메시지가 아니라 상태가 이미 오류를 나타낼 때 사용됩니다. 다른 메시지는 Redirect loop detected 및 Missing Authenticate header과 같은 다른 시간에 사용됩니다. 위의 코드는 단지 Internal response을 검사하는 것보다 메시지가있는 곳이면 무엇이든 얻을 수 있습니다.

Answer 2

LWP을 사용하는 표준 방법입니다

use strict; 
use warnings; 

use LWP; 

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

my $resp = $ua->get('http://my.domain.co.uk/'); 

die $resp->status_line unless $resp->is_success; 

my $content = $resp->decoded_content; 

당신이 알아야 할 뭔가?