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

Поиск:

Ответ в темуСоздание новой темы Создание опроса
> Ошибка в Net::FTP, или сервер ? 
:(
    Опции темы
nIkTo
  Дата 8.3.2008, 21:58 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Бывалый
*


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

Репутация: нет
Всего: нет
Проблема в следущем, скрипт вываливается с ошибкой :
Код

Timeout at /usr/lib/perl5/5.8.8/Net/FTP.pm line 973


вот эти строки:
Код

972  while ($data->read($databuf, $blksize)) {
973    $buf .= $databuf;
974  }


Скрипт заливает дамп на фтп, как убрать эту гнусную ошибку и сделать так  чтобы скрипт не вылетал при каких-то косяках на фтп сервере, а продалжал дальше выполнятся ?

Спасибо за внимание.
PM   Вверх
nIkTo
Дата 8.3.2008, 23:47 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Бывалый
*


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

Репутация: нет
Всего: нет
Дебагер выдал:

Код

Net::FTP>>> Net::FTP(2.77)
Net::FTP>>>   Exporter(5.58)
Net::FTP>>>   Net::Cmd(2.28)
Net::FTP>>>   IO::Socket::INET(1.29)
Net::FTP>>>     IO::Socket(1.29)
Net::FTP>>>       IO::Handle(1.25)
Net::FTP=GLOB(0xa045f58)<<< 220 Microsoft FTP Service
Net::FTP=GLOB(0xa045f58)>>> USER <username>
Net::FTP=GLOB(0xa045f58)<<< 331 Password required for <username>.
Net::FTP=GLOB(0xa045f58)>>> PASS ....
Net::FTP=GLOB(0xa045f58)<<< 230 User <username> logged in.
Net::FTP=GLOB(0xa045f58)>>> PASV
Net::FTP=GLOB(0xa045f58)<<< 227 Entering Passive Mode (209,200,229,17,20,99).
Net::FTP=GLOB(0xa045f58)>>> LIST /ftp_dumps
Net::FTP=GLOB(0xa045f58)<<< 125 Data connection already open; Transfer starting.
Timeout at /usr/lib/perl5/5.8.8/Net/FTP.pm line 973
PM   Вверх
ginnie
Дата 9.3.2008, 11:42 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
***


Профиль
Группа: Комодератор
Сообщений: 1287
Регистрация: 6.1.2008
Где: Москва

Репутация: 38
Всего: 49
Уважаемый nIkTo, Net::FTP при таймауте вызывает croak(), поэтому чтобы скрипт продолжал выполнение необходимо функцию чтения поместить в блок eval {};


--------------------
Написать код, понятный компьютеру, может каждый, но только хорошие программисты пишут код, понятный людям. (Мартин Фаулер. Рефакторинг)
PM MAIL Skype Jabber   Вверх
nIkTo
Дата 9.3.2008, 13:00 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Бывалый
*


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

Репутация: нет
Всего: нет
Уважаемый ginnie, в eval приходится помещать не только функцию чтения, а весь кусок кода с момента создания обьекта до есго закрытия, сей способ не совсем подходит.

Есть ещё каки-нибудь идеи ?

Это сообщение отредактировал(а) nIkTo - 9.3.2008, 13:00
PM   Вверх
ginnie
Дата 9.3.2008, 14:43 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
***


Профиль
Группа: Комодератор
Сообщений: 1287
Регистрация: 6.1.2008
Где: Москва

Репутация: 38
Всего: 49
nIkTo, как вариант - переписать модуль Net::FTP  smile 

Чем eval не устраивает?


--------------------
Написать код, понятный компьютеру, может каждый, но только хорошие программисты пишут код, понятный людям. (Мартин Фаулер. Рефакторинг)
PM MAIL Skype Jabber   Вверх
nIkTo
Дата 9.3.2008, 15:20 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Бывалый
*


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

Репутация: нет
Всего: нет
ginnie, eval не подходить по следущей причине :

Цитата(nIkTo @  9.3.2008,  13:00 Найти цитируемый пост)
в eval приходится помещать не только функцию чтения, а весь кусок кода с момента создания обьекта до есго закрытия
PM   Вверх
ginnie
Дата 9.3.2008, 19:41 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
***


Профиль
Группа: Комодератор
Сообщений: 1287
Регистрация: 6.1.2008
Где: Москва

Репутация: 38
Всего: 49
nIkTo, поясните, как, по-вашему, должна осуществлятся обработка ошибок при копировании файла на FTP-server?


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

Если Вам понравилась атмосфера форума, заходите к нам чаще! С уважением, korob2001, sharq.
 
0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема | Perl: Общие вопросы | Следующая тема »

Подписаться на тему | Подписка на этот форум | Скачать/Распечатать тему


 




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


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

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