Perl работа с фтп - Не работает

Задача: получить в масив листинг дерриктории на фтп.
Делаю все как по ману
http://search.cpan.org/dist/libnet/Net/FTP.pm

Code:

my $ftp = Net::FTP->new($host, Debug => 0) or print"Connect: [ERROR]\r\n";

$ftp->login($login, $password) or print"Authorisation:[ERROR]";
	$ftp->cwd();
	@q = $ftp->ls(".");
	foreach(@q) { print $_; }
	$ftp->quit;

Просто не работает =( ошибок не выводит библиотека с цпана последняя
Пробовал на различных фтп.

 

попробуй:

Code:

use Net::FTP;

my $host = 'some.host.name';
my $login = 'abc';
my $password = 'def';
my $folder = '/pub';

my $ftp = Net::FTP->new($host, Debug => 0) or die "Connect: [ERROR]\r\n";

$ftp->login($login, $password) or die "Auth: [ERROR]";
$ftp->cwd($folder);

@q = $ftp->ls($folder);
foreach(@q) { print $_."\n"; }

$ftp->quit;

у меня работает.
запусти из под cmd и посмотри что скрипт пишет, какую ошибку.

 

Нормально все работает

 

zer0ska, попробуй перевести соединение в пассивный режим

Code:

$ftp->pasv();

А ошибки я смотрю здесь:

Code:

$ftp->message;

 

Спасибо
вроде заработало сам не понел где ошибка но тут.

Сам модуль http://cpansearch.perl.org/src/GBARR/libnet-1.22/Net/FTP.pm

 

ЗЫ Как сделать чтобы ошибки модулей не прерывали работу скрипта ?

 

eval используй