TCP/IPソケットを使用するPerl/Windowsアプリがあり、IPv6サポートを追加する必要があります。
ハリケーンエレクトリックトンネルでIPv6を実行しているWindows764ビットマシンがあり、http://test-ipv6.com/で10点満点で10点を獲得し、 http ://loopsofzenなどのIPv6のみのサイトにアクセスします。 co.uk/。
ActivePerl 5.14.2があります(Strawberry Perl 5.16.0.1も試しました)。
簡単なテストスクリプトは次のとおりです。
use Socket qw( getaddrinfo );
$host = 'loopsofzen.co.uk';
$port = 80;
$hints = (socktype => SOCK_STREAM, family -> Socket::AF_INET6);
($err, @addrs) = getaddrinfo($host, 0);
die $err if $err;
これにより、エラーが発生します。
no address associated with nodename at ip.pl line 6.
(新しい)getaddrinfo()
関数は使用可能であるように見え$host
、IPv4ホスト名を使用するように設定した場合は機能します。しかし、IPv6はまったく機能していないようです。
私は何が欠けていますか?それとも、Perl / Windows / IPv6は今のところ失われた原因ですか?