VPF::Проверка доступности FTP хоста - Форум программистов

tapio

Дата 2.2.2009, 12:30 (ссылка)

(нет голосов)

Загрузка ...

Новичок

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

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

Привет! Столкнулся с такой проблемой. У меня есть список ftp хостов, к которым я по очереди конекчусь и забираю от туда файлы. Выявилась такая проблема, что при недоступности какого то из этих хостов, цикл прерывается. Каким образом можно обойти это? А то что то я не соображу. :(

Код


    my $query = "SELECT t.fix_switch_id, t.ip_address, t.ftp_port, t.ftp_login, t.ftp_pas FROM nss_fix_switch t";
    my $result = DB::sql_q($query);
    my $i;
    my $ftp_host;
    my $ip_address;
    my $ftp_port;
    my $ftp_login;
    my $ftp_pass;
    for ($i=0; $i<@$result; $i++) {
        $ip_address = $result->[$i][1];
        $ftp_port = $result->[$i][2];
        $ftp_host = $ip_address.":".$ftp_port;
        my $ftp = Net::FTP->new($ftp_host) or die "Can't connect to $ftp_host: $@ \n";
        $ftp_login = $result->[$i][3];
        $ftp_pass = $result->[$i][4];
        $ftp->login($ftp_login,$ftp_pass) or die "Can't login \n";
        $ftp->binary();
    }

amg

Дата 2.2.2009, 12:53 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Завсегдатай
Сообщений: 1145
Регистрация: 3.8.2006
Где: Новосибирск

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

Попробуйте заменить строку

Код

my $ftp = Net::FTP->new($ftp_host) or die "Can't connect to $ftp_host: $@ \n";

на

Код

my $ftp = Net::FTP->new($ftp_host);
if (! $ftp) {
  warn "Can't connect to $ftp_host: $@ \n";
  next;
}

Аналогично,

Код

$ftp->login($ftp_login,$ftp_pass) or warn("Can't login to $ftp_host\n"), next;

ginnie

Дата 2.2.2009, 13:09 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

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

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

amg, понятнее будет

Код


$ftp->login($ftp_login,$ftp_pass) or do{ warn("Can't login to $ftp_host\n"); next; };

--------------------

Написать код, понятный компьютеру, может каждый, но только хорошие программисты пишут код, понятный людям. (Мартин Фаулер. Рефакторинг)

amg

Дата 2.2.2009, 13:24 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Завсегдатай
Сообщений: 1145
Регистрация: 3.8.2006
Где: Новосибирск

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

Цитата(ginnie @ 2.2.2009, 13:09

)

понятнее будет

Действительно, понятнее smile

tapio

Дата 2.2.2009, 14:51 (ссылка)

(нет голосов)

Загрузка ...

Новичок

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

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

Спасибо!! Помогло smile

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