Как включить поддержку IPv6 в LWP?

Следующий код...

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

Мои вопросы:

  • Как включить поддержку IPv6 в LWP?
  • Как настроить параметры LWP для «предпочитать IPv4 вместо IPv6» (A вместо AAAA) / «предпочитать IPv6 вместо IPv4» (AAAA вместо A)?

perl ipv6 lwp
person knorv    schedule 06.02.2010    source источник
comment
Вы упомянули свою ОС? Я не мог этого заметить. Не уверен на 100%, но может иметь значение.   -  person ziya    schedule 07.02.2010

Ответы (3)


arrow_upward
12
arrow_downward

Похоже, вам просто нужно использовать 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' );
person cjm    schedule 06.02.2010

arrow_upward
2
arrow_downward

Я считаю, что вам придется изменить модуль, чтобы использовать сетевой модуль IPV6. По умолчанию это не включено: http://eintr.blogspot.com/2009/03/bad-state-of-ipv6-in-perl.html. Я не верю, что существует что-то столь же простое, как «prefer-ipv6».

person H. Green    schedule 06.02.2010

arrow_upward
1
arrow_downward

Debian Wheezy (перл 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);

Итак, если вам не нужен IPv6-адрес в http-запросе, все в порядке. :(

person Ondrej Prochazka    schedule 18.06.2012