Forum Webscript.Ru

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

Название: Вопрос по Net::FTP
Отправлено: DNK от 24 Марта 2006, 00:18:44

Кто может обьясните в чем проблема. От скрипта нужно чтобы он выводил "yes" в случае если логин и пас приняты сервером а "no" если логин и пароль неверны
конструкцию с die не предлогать
#!/usr/bin/perl
use Net::FTP;
sub ftpcon
{
   $ftp_serv = $_[0];
   $user = $_[1];
   $pass = $_[2];
   $ftp = Net::FTP->new($ftp_serv) || die "No connecting to Ftp server[ $ftp_serv ]";
   if($ftp->login($user,$pass))
   {
             print "yes"
       }
   else
       {print "no"}    
}
ftpcon("ftp.server.ru","ftp","ftp");

Название: Вопрос по Net::FTP
Отправлено: Skif от 24 Марта 2006, 18:33:36

Все нормально, чудесно отрабатывает. Не вижу проблемы. Может есть смысл переставить сам модуль?

Название: Вопрос по Net::FTP
Отправлено: Алан от 27 Марта 2006, 14:05:20

Честно говоря я тоже проблеммы не вижу... вроде всё норм написано :) А зачем вообще сайты взламывать?

Название: Вопрос по Net::FTP
Отправлено: DNK от 27 Марта 2006, 17:37:31

Алан а ты не пробовал?

Название: Вопрос по Net::FTP
Отправлено: Алан от 27 Марта 2006, 18:08:22

пробывал :) смысла мало :) кайфа много :)

Название: Вопрос по Net::FTP
Отправлено: NeoNox от 27 Марта 2006, 18:21:25

[moderator]
Алан, ветка для флейма находится гораздо ниже.
Предупреждение.

Название: Вопрос по Net::FTP
Отправлено: vladsu от 11 Апреля 2006, 00:31:55

$ftp->login($user,$pass)) or die "no", $ftp->message;
print "yes"

И не надо велосипедов.