LWP에서 IPv6 지원을 활성화하려면 어떻게합니까?

Question

다음 코드는 ...

my $user_agent = LWP::UserAgent->new; 
my $request = HTTP::Request->new(GET => $url); 
my $response = $user_agent->request($request); 
if ($response->is_success) { 
    print "OK\n"; 
} else { 
    die($response->status_line); 
} 

..는

500 Can't connect to <hostname> (Bad hostname '<hostname>') 

로 실패합니다. $ url의 호스트 이름이 IPv6 전용 주소 인 경우 (AAAA 레코드가 있음) , A 레코드 없음).

내 질문은 :

• 어떻게 LWP에서 IPv6 지원을 활성화합니까?
• "prefer-IPv4-over-IPv6"(A 대 AAAA)/"prefer-IPv6-over-IPv4"(AAAA와 A)에 대한 LWP 설정을 구성하는 방법은 무엇입니까?

Answer 1

Net::INET6Glue::INET_is_INET6을 사용해야 할 것 같다.

use Net::INET6Glue::INET_is_INET6; 
use LWP::Simple; 
print get('http://[::1]:80'); 
print get('http://ipv6.google.com'); 

Answer 2

저는 IPV6 넷 모듈을 사용하도록 모듈을 변경해야한다고 생각합니다. 기본적으로이 옵션은 활성화되어 있지 않습니다 : http://eintr.blogspot.com/2009/03/bad-state-of-ipv6-in-perl.html. 나는 "prefer-ipv6"와 같은 간단한 것이 있다고 믿지 않는다.

Answer 3

데비안 위지 (펄 5.14)

작업 좋은 :

use LWP::Simple; 
print get('http://ip6-localhost:80'); 

작동하지 (1)

use LWP::Simple; 
print get('http://[::1]:80'); 

하지의 예를 인용 작업 (2) [반품 : 잘못된 호스트 이름]

use LWP::Simple; 
$ua = new LWP::UserAgent(); 
my $req = new HTTP::Request("GET", "http://[::1]/"); 
my $res = $ua->request($req); 

(3) 작동하지 않는 : 당신이 필요하지 않은 경우,

use Net::INET6Glue::INET_is_INET6; 
use LWP::Simple; 
$ua = new LWP::UserAgent(); 
my $req = new HTTP::Request("GET", "http://[::1]/"); 
my $res = $ua->request($req); 

김 [반품 연결을 거부] http 요청의 IPv6 주소입니다. 괜찮습니다. :