以下代码…
- 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支持？
>如何配置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' );