Исходное сообщение
"Раздел полезных советов: Пример использования 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.ru/tips/info/344.shtml