The OpenNET Project / Index page

[ новости /+++ | форум | теги | ]

Пример использования Net::FTP для доступа к FTP в Perl
$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();
 
14.12.2002
Ключи: timeout, connect, size, ftp, delete, binary, log, path, time, login, perl, debug / Лицензия: CC-BY
Раздел:    Корень / Программисту и web-разработчику / Perl / Полезные подпрограммы на Perl / Работа с сетью и IP адресами на Perl

Обсуждение [ Линейный режим | Показать все | RSS ]
  • 1.1, Григорий (?), 15:01, 18/02/2004 [ответить] [﹢﹢﹢] [ · · · ]  
  • +/
    Спасибо, очень помогло. На Perldoc полного примера не нашел.
     
  • 1.2, Игорь (??), 17:24, 30/01/2006 [ответить] [﹢﹢﹢] [ · · · ]  
  • +/
    Присоединяюсь! Спасибо. :)
     
  • 1.3, Максим (??), 13:34, 26/06/2007 [ответить] [﹢﹢﹢] [ · · · ]  
  • +/
    Спасибо.
    Краткость - сестра нашего брата.
     
  • 1.4, Mikhail (??), 13:40, 25/12/2007 [ответить] [﹢﹢﹢] [ · · · ]  
  • +/
    Spasibo!!!
     
  • 1.5, Ingvar (??), 10:05, 01/07/2008 [ответить] [﹢﹢﹢] [ · · · ]  
  • +/
    Ya, Ya! Sehr gut!
     
  • 1.6, jurgen (?), 08:09, 02/07/2008 [ответить] [﹢﹢﹢] [ · · · ]  
  • +/
    При копировании файла по FTP, на удаленной машине создаётся одноименный файл нулевой длинны.
    Скрипт, выполняющий это действие, работу не завершает.
    Средствами Midnight Commander копирую без проблем.
    В чём дело то?
    Спасибо
     
     
  • 2.8, Foxett (?), 16:21, 15/07/2009 [^] [^^] [^^^] [ответить]  
  • +/
    Ты уверен что закрываешь файл после копирования? Если нет то проблема в том, что после копирования файловую переменную надо закрыть.
     

  • 1.7, ture (?), 15:43, 13/09/2008 [ответить] [﹢﹢﹢] [ · · · ]  
  • +/
    Спасибо
     
  • 1.9, ULiX (?), 01:04, 08/10/2010 [ответить] [﹢﹢﹢] [ · · · ]  
  • +/
    Никак не хочет работать команда в Perl скрипте:
    $ftp->get("удаленный файл", "локальный файл");
    Хотя через консольный интерфейс ftp всё получается замечательно.
    И размер файла получаю, и время изменения, а вот скачать не получается. На ftp сервере архив zip на 38МБ.
    Пришлось в итоге в скрипте использовать только $ftp->size() для определения размера и curl для скачивания файла после проверки размера.
     
     
  • 2.10, Максим (??), 15:53, 07/03/2012 [^] [^^] [^^^] [ответить]  
  • +/
    > Никак не хочет работать команда в Perl скрипте:
    > $ftp->get("удаленный файл", "локальный файл");
    > Хотя через консольный интерфейс ftp всё получается замечательно.
    > И размер файла получаю, и время изменения, а вот скачать не получается.
    > На ftp сервере архив zip на 38МБ.
    > Пришлось в итоге в скрипте использовать только $ftp->size() для определения размера и
    > curl для скачивания файла после проверки размера.

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

     

  • 1.11, Владимир (??), 09:41, 18/09/2015 [ответить] [﹢﹢﹢] [ · · · ]  
  • +/
    Как подключиться к ftp в пасивном режиме Net::FTP->new("хост") or die "Немогу подключится к хосту";
     

     Добавить комментарий
    Имя:
    E-Mail:
    Заголовок:
    Текст:




    Партнёры:
    PostgresPro
    Inferno Solutions
    Hosting by Hoster.ru
    Хостинг:

    Закладки на сайте
    Проследить за страницей
    Created 1996-2024 by Maxim Chirkov
    Добавить, Поддержать, Вебмастеру