LWP :: Parallel :: UserAgent를 사용할 때 agent()가 설정되지 않는 이유는 무엇입니까?

Question

UserAgent.pm을 보면 정의되지 않은 것처럼 보입니다. 적어도 내가 아는 한, 명시 적으로 $pua->agent()으로 설정하더라도 루틴이 해당 부분에 도달하면 정의되지 않습니다. 이거 버그 야? init_header()도 있는데, $pua->request->init_header()을 시도해도 설정할 수 없었습니다. 혼란에 대해 죄송

#!/bin/perl 

use LWP::Parallel::UserAgent; 

my $ua_string = 
"Mozilla/5.0 (Windows NT 6.1; WOW64) AppleWebKit/537.36 (KHTML, like Gecko) Chrome/43.0.2357.81 Safari/537.36"; 

my $url = "http://www.example1.com"; 
my $url2 = "http://www.example2.com"; 

my $reqs = [ 
    HTTP::Request->new('GET', $url), 
    HTTP::Request->new('GET', $url2) 
]; 

my ($req, $res); 

my $pua = LWP::Parallel::UserAgent->new(); 

$pua->agent($ua_string); 

foreach $req (@$reqs) { 
    $pua->register($req); 
} 

my $entries = $pua->wait(); 
foreach (keys %$entries) { 
    $res = $entries->{$_}->response; 
    my $r = $res; 
    my @redirects; 
    while ($r) { 
     $res = $r; 
     $r = $r->previous; 
     push(@redirects, $res) if $r; 
    } 
} 

Answer 1

는 $pua->agent가 설정되어 있지만, LWP는 :: 병렬 : 해당 UserAgent는 사용하지 않습니다. 이것은 a long standing bug in LWP::Parallel::UserAgent입니다.

LWP :: Parallel :: UserAgent는 LWP :: UserAgent의 하위 클래스이지만 제대로 작동하지 않는 하위 클래스입니다. 접근자를 사용하는 대신 내부 필드에서 잡아서 에이전트가 $self->{agent}에 저장된다고 가정합니다. 어쩌면 한 번 이었지만 더 이상은 아닙니다.

귀하의 특별한 문제는 LWP::Parallel::UserAgent::init_request() starting at line 1506입니다.

# Extract fields that will be used below 
my ($agent, $from, $timeout, $cookie_jar, 
    $use_eval, $parse_head, $max_size, $nonblock) = 
    @{$self}{qw(agent from timeout cookie_jar 
       use_eval parse_head max_size nonblock)}; 

이

은 사용자 에이전트가 $self->{agent}에 저장됩니다 가정합니다. 그렇지 않습니다. 대신에 다음과 같이 각 접근자를 차례로 호출해야합니다.

my %fields; 
my @fields = qw(agent from timeout cookie_jar parse_head max_size); 
for my $field (@fields) { 
    $fields{$field} = $self->$field(); 
} 

아니면 접근자를 직접 사용하십시오. 이렇게하면 LWP에 대해 문서화 된 인터페이스가 사용됩니다.

nonblock 및 use_eval은 특별한 경우입니다. 이들은 LWP :: UserAgent 필드가 아니며 LWP :: Parallel에 의해 추가되었습니다. use_eval에 대한 접근 자 메서드는 없습니다. LWP::Parallel::UserAgent::nonblock()이 있지만 그 유일한 설정 자입니다. 나는 이것이 의도적이라고 생각하지 않는다.

use_eval에 대한 접근자를 정의하지 않았으므로 하나를 추가해야합니다. 그리고 항상 nonblock을 수정하여 값을 반환 할 수 있습니다.

sub nonblock { 
    my $self = shift; 
    $self->{'nonblock'} = $_[0] if defined $_[0]; 
    return $self->{nonblock}; 
} 

LWP :: 병렬 :: 해당 UserAgent 적극적으로 you should send a bug report을 유지하고 어쩌면 패치되고있다.