Интересные решения Perl. Вопросы и ответы

Как с помощью Perl закачать файл по FTP?

Используйте модуль Net::FTP.

use Net::FTP;

my $ftpServer = 'someFTPServer.tld';
my $ftpLogin  = 'someLogin';
my $ftpPass    = 'somePassword';

my $ftp = Net::FTP->new($ftpServer, Timeout => 60, 
    Debug => 1, Passive => 1) or die "Can't connect to ftp server.\n";
$ftp->login($ftpLogin, $ftpPass) || die "Can't login to ftp server.\n";
$ftp->cwd('/') or die "Path / not found on ftp server.\n";
$ftp->binary();
# кладем файл на ftp-сервер
$ftp->put('/path/to/localFile', 'remoteFile');
$ftp->quit();

Опубликовано: 29 октября 2005 года.

Комментарии посетителей сайта