perl - perl 在 HTTP::Request 中支持 IPv6 地址格式 [::1]

Question

Debian Wheezy (perl 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);

为什么我需要它？因为 ldirectord 需要它。:( 有什么建议吗？

Answer 1

另一个帖子建议使用 INET6Glue

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