Автор Тема: Вопрос по Net::FTP  (Прочитано 3220 раз)

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

dnk

  • Гость
Вопрос по Net::FTP
« : јРав 24, 2006, 12:19:02 am »
Кто может обьясните в чем проблема. От скрипта нужно чтобы он выводил "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");

KoNSTANTIN

  • Гость
Re: Вопрос по Net::FTP
« Ответ #1 : ёоЭм 27, 2006, 01:04:45 pm »
Юзай сокеты, там все путем.
и ищи спецификацию протокола FTP

Сервер будет отвечать на каждое сообщение, при вводе логина и пароля он также выдаст ответ по протоколу, его и надо будет выцепить.