perl – 如何在LWP中启用IPv6支持？

发布时间：2020-12-15 22:01:36 所属栏目：大数据来源：网络整理

导读：以下代码… my $user_agent = LWP::UserAgent-new;my $request = HTTP::Request-new(GET = $url);my $response = $user_agent-request($request);if ($response-is_success) { print "OKn";} else { die($response-status_line);} ..会失败.. 500 Can't con

以下代码…

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

..会失败..

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

..如果$url中的主机名是仅IPv6地址(即：存在AAAA记录,但没有A记录).

我的问题是：

>如何在LWP中启用IPv6支持？
>如何配置LWP的“prefer-IPv4-over-IPv6”(A vs. AAAA)/“prefer-IPv6 over over IPv4”(AAAA vs.A)的设置？

解决方法

看起来你只需要使用 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' );

（编辑：李大同）

【声明】本站内容均来自网络，其相关言论仅代表作者个人观点，不代表本站立场。若无意侵犯到您的权利，请及时与联系站长删除相关内容!