Автор Тема: Почему не работает функция ?  (Прочитано 2369 раз)

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

Оффлайн Андрюха

  • Заглянувший
  • Новичок
  • *
  • Сообщений: 6
  • +0/-0
  • 0
    • Просмотр профиля
    • http://
Почему не работает функция ?
« : 26 Августа 2002, 18:05:02 »
Ниже приводится одна из функций скрипта, иммитирующего работу ФТП-клиента. Функция должна возвращать массив @files. На моем локальном серваке
под Win98 она нормально работает, но при установке на сервер UNIX в  Интернет она почему-то молчит.
Может кто-ндь догадывается в чем тут дело ?


# Начало кода

use Net::FTP;

  $retry_call=1;
  $attempts=2;
  $ftp_port=21;
  $site="host";
  $user="vova";
  $pass="kyky";
  $user_dir="/";

if(ftp::open($site,$ftp_port,$retry_call,$attempts )!=1){
   return print qq~
Невозможно соединиться с сервером !

       Проверте параметры соединения.


       


       

\\n~;
}
   if(!ftp::login($user,$pass)){
     return print qq~
Не могу войти в каталог !

       Проверте правильность логина и пароля.


       


       

\\n~;
  }
 else { print "
Соединение с FTP-сервером $site установлено.
               

\\n";}

ftp::cwd($user_dir);
    my @files=ftp\'ls($user_dir);
foreach(@files)
 {
   print "$_
\\n";
 }

# конец

Оффлайн SteelRat

  • Funk U!
  • Старожил
  • ****
  • Сообщений: 290
  • +0/-0
  • 2
    • Просмотр профиля
    • http://thewebfactory.fatal.ru
Почему не работает функция ?
« Ответ #1 : 07 Сентября 2002, 04:57:22 »
И в чём выражается её \'неработа\'?
Debian/GNU Linux is rulezz...

 

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