Làm thế nào để thất bại trên

Question

Nếu tôi sử dụng wget để lấy một cái gì đó từ máy chủ geonames.org, nó báo cáo hai địa chỉ IP, và là người đầu tiên thất bại nhưng nó được nó từ thứ hai:

Resolving ws.geonames.org (ws.geonames.org)... 5.9.41.208, 176.9.107.169 
Connecting to ws.geonames.org (ws.geonames.org)|5.9.41.208|:80... failed: Connection refused. 
Connecting to ws.geonames.org (ws.geonames.org)|176.9.107.169|:80... connected. 
HTTP request sent, awaiting response... 200 OK 

Nhưng tiếc là tôi phải truy cập thông qua perl bằng cách sử dụng LWP :: UserAgent và HTTP :: Request. Làm thế nào tôi có thể làm cho họ thử IP thứ hai nếu lần đầu tiên không thành công?

my $ua = LWP::UserAgent->new; 
my $req = HTTP::Request->new(
    GET => 
     "http://ws.geonames.org/countrySubdivision?lat=$lat&lng=$long&radius=$radius&username=xyzzy"); 

my $res = $ua->request($req); 

Answer 1

Bạn có thể làm điều đó cho mình: có được tất cả các địa chỉ IP với sự giúp đỡ của Net::DNS::Resolver, và sau đó thử tất cả các địa chỉ IP cho đến khi bạn nhận được một phản ứng thành công. Lưu ý rằng bạn phải tự cung cấp tiêu đề "Máy chủ" nếu làm việc với địa chỉ IP, trong trường hợp máy chủ đang thực hiện các máy chủ ảo dựa trên tên.

Giống như các dòng sau có thể hoạt động. Có thể thậm chí có một mô-đun CPAN cho điều này, tôi không kiểm tra:

use Net::DNS; 
use LWP::UserAgent; 

my @addrs; 
{ 
    my $res = Net::DNS::Resolver->new; 
    my $query = $res->search("ws.geonames.org"); 
    if ($query) { 
     for my $rr ($query->answer) { 
      if ($rr->type eq "A") { 
       push @addrs, $rr->address; 
      } 
     } 
    } else { 
     die "DNS query failed: ", $res->errorstring, "\n"; 
    } 
} 

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

my $res; 
for my $addr (@addrs) { 
    $res = $ua->get("http://$addr/countrySubdivision?lat=$lat&lng=$long&radius=$radius&username=xyzzy", Host => 'ws.geonames.org'); 
    last if $res->is_success; 
} 

Answer 2

Giải pháp từ Slaven là OK trừ khi địa chỉ IP không thể truy cập trực tiếp. Trong trường hợp đó, những điều sau đây phù hợp với tôi:

local @LWP::Protocol::http::EXTRA_SOCK_OPTS = (
              PeerAddr => 'my_hostname', 
              MultiHomed => 1, 
             ); 
my $response = $ua->post('https://my_hostname/...', ...);