perl поддерживает формат адреса IPv6 [::1] в HTTP::Request

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);

Зачем мне это нужно? Потому что директору это нужно. :( Есть предложения?

9
задан Ondrej Prochazka 18 June 2012 в 20:37
поделиться