Автор Тема: Почему не работает  (Прочитано 4612 раз)

0 Пользователей и 1 Гость просматривают эту тему.

Оффлайн DNK

  • Banned
  • Новичок
  • *
  • Сообщений: 12
  • +0/-0
  • 0
    • Просмотр профиля
    • http://
Почему не работает
« : 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

  • Фанат Perl
  • Постоялец
  • ***
  • Сообщений: 146
  • +0/-0
  • 2
    • Просмотр профиля
    • http://perlmonks.org.ru
Почему не работает
« Ответ #1 : 29 Марта 2006, 18:28:50 »
дебаггер в руки и - отслеживаем процес работы скрипта и инициализации переменных.
Ворота в perl - perlmonks.org.ru

Оффлайн NeoNox

  • Координатор
  • Глобальный модератор
  • Ветеран
  • *****
  • Сообщений: 3012
  • +0/-0
  • 0
    • Просмотр профиля
Почему не работает
« Ответ #2 : 29 Марта 2006, 18:39:17 »
$ftp = Net::FTP->new("ftp.narod.ru", Debug =>1);
The documentations is your friend

Оффлайн DNK

  • Banned
  • Новичок
  • *
  • Сообщений: 12
  • +0/-0
  • 0
    • Просмотр профиля
    • http://
Почему не работает
« Ответ #3 : 29 Марта 2006, 19:05:22 »
Debug =>1
что это значит?

Оффлайн NeoNox

  • Координатор
  • Глобальный модератор
  • Ветеран
  • *****
  • Сообщений: 3012
  • +0/-0
  • 0
    • Просмотр профиля
Почему не работает
« Ответ #4 : 29 Марта 2006, 19:38:17 »
http://search.cpan.org/~gbarr/libnet-1.19/Net/FTP.pm#CONSTRUCTOR
Выдает как происходит сообщение с сервером.
The documentations is your friend

Оффлайн DNK

  • Banned
  • Новичок
  • *
  • Сообщений: 12
  • +0/-0
  • 0
    • Просмотр профиля
    • http://
Почему не работает
« Ответ #5 : 29 Марта 2006, 19:44:51 »
Спасибо NeoNox очень полезную ссылочку дал, жаль что на анг.
не знаешь ли подобного ресурса на русском?

Оффлайн NeoNox

  • Координатор
  • Глобальный модератор
  • Ветеран
  • *****
  • Сообщений: 3012
  • +0/-0
  • 0
    • Просмотр профиля
Почему не работает
« Ответ #6 : 29 Марта 2006, 19:49:29 »
Нет, на русском не знаю, но знаю еще одну полезную ссылочку:
http://www.translate.ru
The documentations is your friend

Оффлайн DNK

  • Banned
  • Новичок
  • *
  • Сообщений: 12
  • +0/-0
  • 0
    • Просмотр профиля
    • http://
Почему не работает
« Ответ #7 : 29 Марта 2006, 19:56:28 »
Похоже он не пашет
Sorry, the server is on maintenance service now. Try to repeat your request later.

Оффлайн NeoNox

  • Координатор
  • Глобальный модератор
  • Ветеран
  • *****
  • Сообщений: 3012
  • +0/-0
  • 0
    • Просмотр профиля
Почему не работает
« Ответ #8 : 29 Марта 2006, 22:48:59 »
DNK пашет, но у них весьма нестабильный сервер.
The documentations is your friend

 

Sitemap 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28