неполная передача по FTP

Question

use Net::FTP;

$ftp = Net::FTP->new($host) or die "Cannot connect to $host: $@";
$ftp->binary;
$ftp->login($user, $pass) or die "Cannot login: ", $ftp->message;
$ftp->cwd("downloads") or die "Cannot change working directory to downloads: ", $ftp->message;
@ls = $ftp->ls;
if (@ls)
{
    $ftp->get($ls[0]) or warn "Cannot get $ls[0]: ", $ftp->message;
    $ftp->delete($ls[0]) or warn "Cannot delete $ls[0]: ", $ftp->message;;
}
$ftp->quit;

Когда я запускаю приведенный выше код, который подключается к FTP-серверу удаленного хоста, он пытается получить файл PDF в каталоге downloads, но переданный файл PDF имеет размер на 8 байт меньше, чем исходный файл, поэтому он не открывается должным образом в программе для чтения PDF.

Я что-то делаю неправильно? FTP-сервер - vsftpd в Ubuntu.

Answer 1

Ставьте после входа ->binary.