Почему не передается ссылка массива для параметра Host в Net :: FTP-> новой работе?

Question

Я создаю FTP-клиент, используя Net::FTP. В документации указано, что новый конструктор имеет опцию Host, которая может быть ссылкой на массив с хостами, чтобы попробовать поочередно. Кажется, я не могу заставить это работать. Я использую ActivePerl под Windows XP. Вот мой код:

@try_these = ("turing.unh.edu", "euler.unh.edu"); 
$ftp = Net::FTP->new(Host => @try_these) 
or die "Can't connect: $@\n"; 

А вот сообщение об ошибке:

Can't connect: Net::FTP: Bad hostname 'Host' 

Answer 1

На первый взгляд, это выглядит как все, что вам нужно сделать, это предоставить ссылку:

my $ftp = Net::FTP->new(Host => \@try_these); 

но здесь, кажется, что-то flaky с Net::FTP. Я не уверен, что кто-то испытал это. У меня нет времени, чтобы отладить его прямо сейчас, но я бы просто рекомендовал делать:

my $ftp; 
for my $host (@try_these) { 
    warn "Attempting to connect to '$host'\n"; 
    $ftp = Net::FTP->new($host) and last; 
} 

die "Could not connect\n" unless $ftp; 

Update: Я проверил исходный код для Net::FTP->new и, кажется, не существует каких-либо проверок для ссылки на массив прошло. Это похоже на случай, когда код и документы не соответствуют друг другу.

Bug report подано.

Update:

 
Subject: Re: [rt.cpan.org #48001] Net::FTP->new(Host => $arrayref) does not work 
Date: Sun, 19 Jul 2009 11:35:14 -0500 
To:  bug-libnet[...]rt.cpan.org 
From: Graham Barr [text/plain 147b] 
> > Seems like a mismatch between the code and the docs. 
> 
> Not sure where that came from in the docs, Net::FTP has never supported an 
> array of hosts