$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,Григорий, 15:01 , 18-Фев-04
• Пример использования Net::FTP для доступа к FTP в Perl,Игорь, 17:24 , 30-Янв-06
• Пример использования Net::FTP для доступа к FTP в Perl,Максим, 13:34 , 26-Июн-07
• Пример использования Net::FTP для доступа к FTP в Perl,Mikhail, 13:40 , 25-Дек-07
• Пример использования Net::FTP для доступа к FTP в Perl,Ingvar, 10:05 , 01-Июл-08
• Пример использования Net::FTP для доступа к FTP в Perl,jurgen, 08:09 , 02-Июл-08
  • Пример использования Net::FTP для доступа к FTP в Perl,Foxett, 16:21 , 15-Июл-09
• Пример использования Net::FTP для доступа к FTP в Perl,ture, 15:43 , 13-Сен-08
• Пример использования Net::FTP для доступа к FTP в Perl,ULiX, 01:04 , 08-Окт-10
  • Пример использования Net::FTP для доступа к FTP в Perl,Максим, 15:53 , 07-Мрт-12
• Пример использования Net::FTP для доступа к FTP в Perl,Владимир, 09:41 , 18-Сен-15

Спасибо, очень помогло. На Perldoc полного примера не нашел.

Присоединяюсь! Спасибо. :)

Спасибо.
Краткость - сестра нашего брата.

Spasibo!!!

Ya, Ya! Sehr gut!

При копировании файла по FTP, на удаленной машине создаётся одноименный файл нулевой длинны.
Скрипт, выполняющий это действие, работу не завершает.
Средствами Midnight Commander копирую без проблем.
В чём дело то?
Спасибо

Ты уверен что закрываешь файл после копирования? Если нет то проблема в том, что после копирования файловую переменную надо закрыть.

Спасибо

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

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

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

Как подключиться к ftp в пасивном режиме Net::FTP->new("хост") or die "Немогу подключится к хосту";