Модераторы: korob2001, ginnie
  

Поиск:

Ответ в темуСоздание новой темы Создание опроса
> ftp ошибка 
:(
    Опции темы
Satell
Дата 5.7.2007, 15:45 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


Профиль
Группа: Участник
Сообщений: 79
Регистрация: 28.6.2007

Репутация: нет
Всего: нет



Есть программка на моём хостинге выдаёт ошибку
can't call methd "login" on an undefined value в этой строчке 
$ftp->login($username, $password);
на другом хостинге работает нормально

там где работает нормально стоят такие модули
Net::FTP          Net::FTP::A       Net::FTP::dataconn 
Net::FTP::E      Net::FTP::I         Net::FTP::L 

там где не работает
5.8.8::Net::FTP::E 
5.8.8::Net::FTP::L 
5.8.8::Net::FTPSSL

Net::FTP 
Net::FTP::A       Net::FTP::dataconn       Net::FTP::E 
Net::FTP::E       Net::FTP::I                   Net::FTP::L 
Net::FTP::L       Net::FTPSSL
некоторые почему-то по два-три раза, можно ли как-нибудь без админа что-нибудь сделать?

Код

use Net::FTP;

$hostname = 'login';
$username = 'user';
$password = 'pass';

# Hardcode the directory and filename to get
$home = 'public_html';
$filename = 'text.txt';

# Open the connection to the host
$ftp = Net::FTP->new($hostname);         # construct object
$ftp->login($username, $password);       # log in

$ftp->cwd($home),"\n";                   # change directory
print $ftp->ls($home),"\n";        

$ftp->put('/home/public_html/xxx.org/cgi-bin/file.txt');

$ftp->quit;

PM MAIL   Вверх
nitr
Дата 5.7.2007, 16:54 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
****


Профиль
Группа: Участник Клуба
Сообщений: 2543
Регистрация: 10.2.2006
Где: Россия :)

Репутация: 37
Всего: 84



да... недавно написал, смотреть тут

Добавлено через 1 минуту и 15 секунд
"да" это я про 
Цитата(Satell @  5.7.2007,  15:45 Найти цитируемый пост)
можно ли как-нибудь без админа что-нибудь сделать?

и если не компилить их... (про все так не скажу)


--------------------
PM   Вверх
KSURi
Дата 5.7.2007, 17:04 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


Профиль
Группа: Участник
Сообщений: 887
Регистрация: 8.6.2006
Где: Russia

Репутация: 20
Всего: 27



Делай проверку при создании экземпляра:
Код

my $ftp = Net::FTP -> new($hostname) or die $@;

Насколько я помню по умолчанию он ошибку не кидает, а просто возвращает undef
Может это просто проблемы соединения


--------------------
Died at Life.pl line 21
PM Jabber   Вверх
Nab
Дата 5.7.2007, 17:13 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


Профиль
Группа: Участник
Сообщений: 582
Регистрация: 25.3.2006
Где: Kiev

Репутация: 26
Всего: 37



вот именно....
поглядите внимательно что он в качестве хоста передает, врядли 'login' корректное имя 


--------------------
 Чтобы правильно задать вопрос нужно знать больше половины ответа...
Perl Community 
FREESCO in Ukraine 
PM MAIL   Вверх
KSURi
Дата 5.7.2007, 19:36 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


Профиль
Группа: Участник
Сообщений: 887
Регистрация: 8.6.2006
Где: Russia

Репутация: 20
Всего: 27



Цитата(Nab @  5.7.2007,  17:13 Найти цитируемый пост)
вот именно....
поглядите внимательно что он в качестве хоста передает, врядли 'login' корректное имя  

Уахахах, и правда))


--------------------
Died at Life.pl line 21
PM Jabber   Вверх
nitr
Дата 5.7.2007, 21:28 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
****


Профиль
Группа: Участник Клуба
Сообщений: 2543
Регистрация: 10.2.2006
Где: Россия :)

Репутация: 37
Всего: 84



они про 
Код

$hostname = 'login';



--------------------
PM   Вверх
  
Ответ в темуСоздание новой темы Создание опроса
Правила форума "Perl"
korob2001
sharq
  • В этом разделе обсуждаются общие вопросы по языку Perl
  • Если ваш вопрос относится к системному программированию, задавайте его здесь
  • Если ваш вопрос относится к CGI программированию, задавайте его здесь
  • Интерпретатор Perl можно скачать здесь ActiveState, O'REILLY, The source for Perl
  • Справочное руководство "Установка perl-модулей", можно скачать здесь


Если Вам понравилась атмосфера форума, заходите к нам чаще! С уважением, korob2001, sharq.

 
0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема | Perl: Общие вопросы | Следующая тема »


 




[ Время генерации скрипта: 0.0970 ]   [ Использовано запросов: 22 ]   [ GZIP включён ]


Реклама на сайте     Информационное спонсорство

 
По вопросам размещения рекламы пишите на vladimir(sobaka)vingrad.ru
Отказ от ответственности     Powered by Invision Power Board(R) 1.3 © 2003  IPS, Inc.