URL: https://www.opennet.dev/cgi-bin/openforum/vsluhboard.cgi
Форум: vsluhforumID3
Нить номер: 3296
[ Назад ]

Исходное сообщение
"Раздел полезных советов: Пример использования Net::FTP для доступа к FTP в Perl"

Отправлено auto_tips , 18-Фев-04 15:01 
$ftp = Net::FTP->new("ftp сервер", Timeout => 30, Debug => 0) || die "Can't connect to ftp server.\n";
$ftp->login("логин", "пароль") || die "Can't login to ftp server.\n";
$ftp->cwd("переход в директорию") || die "Path $cfg_remote_path not found on ftp server.\n";
$ftp->binary();
$size = $ftp->size("файл для которого нужно узнать размер");
$time = $ftp->mdtm("файл для которого нужно узнать время изменения");
$ftp->delete("директория для удаления");
$ftp->mkdir("директория для создания");
$ftp->rename("старое имя для переименования","новое имя");
$ftp->put("имя файла на локальном диске для закачки", "имя файла на ftp");
$ftp->put(*FD, "имя файла на ftp"); # Все что идет в FD будет сохранено.
$ftp->get("удаленный файл", "локальный файл");
$ftp->quit();

URL:
Обсуждается: http://www.opennet.dev/tips/info/344.shtml


Содержание

Сообщения в этом обсуждении
"Пример использования NetFTP для доступа к FTP в Perl"
Отправлено Григорий , 18-Фев-04 15:01 
Спасибо, очень помогло. На Perldoc полного примера не нашел.

"Пример использования Net::FTP для доступа к FTP в Perl"
Отправлено Игорь , 30-Янв-06 17:24 
Присоединяюсь! Спасибо. :)

"Пример использования Net::FTP для доступа к FTP в Perl"
Отправлено Максим , 26-Июн-07 13:34 
Спасибо.
Краткость - сестра нашего брата.

"Пример использования Net::FTP для доступа к FTP в Perl"
Отправлено Mikhail , 25-Дек-07 13:40 
Spasibo!!!

"Пример использования Net::FTP для доступа к FTP в Perl"
Отправлено Ingvar , 01-Июл-08 10:05 
Ya, Ya! Sehr gut!

"Пример использования Net::FTP для доступа к FTP в Perl"
Отправлено jurgen , 02-Июл-08 08:09 
При копировании файла по FTP, на удаленной машине создаётся одноименный файл нулевой длинны.
Скрипт, выполняющий это действие, работу не завершает.
Средствами Midnight Commander копирую без проблем.
В чём дело то?
Спасибо

"Пример использования Net::FTP для доступа к FTP в Perl"
Отправлено Foxett , 15-Июл-09 16:21 
Ты уверен что закрываешь файл после копирования? Если нет то проблема в том, что после копирования файловую переменную надо закрыть.

"Пример использования Net::FTP для доступа к FTP в Perl"
Отправлено ture , 13-Сен-08 15:43 
Спасибо

"Пример использования Net::FTP для доступа к FTP в Perl"
Отправлено ULiX , 08-Окт-10 01:04 
Никак не хочет работать команда в Perl скрипте:
$ftp->get("удаленный файл", "локальный файл");
Хотя через консольный интерфейс ftp всё получается замечательно.
И размер файла получаю, и время изменения, а вот скачать не получается. На ftp сервере архив zip на 38МБ.
Пришлось в итоге в скрипте использовать только $ftp->size() для определения размера и curl для скачивания файла после проверки размера.

"Пример использования Net::FTP для доступа к FTP в Perl"
Отправлено Максим , 07-Мрт-12 15:53 
> Никак не хочет работать команда в Perl скрипте:
> $ftp->get("удаленный файл", "локальный файл");
> Хотя через консольный интерфейс ftp всё получается замечательно.
> И размер файла получаю, и время изменения, а вот скачать не получается.
> На ftp сервере архив zip на 38МБ.
> Пришлось в итоге в скрипте использовать только $ftp->size() для определения размера и
> curl для скачивания файла после проверки размера.

надо в bin mode перейти, тогда всё нормально будет :-)
$ftp->binary;


"Пример использования Net::FTP для доступа к FTP в Perl"
Отправлено Владимир , 18-Сен-15 09:41 
Как подключиться к ftp в пасивном режиме Net::FTP->new("хост") or die "Немогу подключится к хосту";