perl - 不完整的 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 服务器的代码时，它试图在downloads目录中获取一个 PDF 文件，但是传输的 PDF 文件比原始文件小 8 个字节，所以它没有打开正确地在 PDF 阅读器中。

有什么我做的不对吗？FTP 服务器是 Ubuntu 上的 vsftpd。

Answer 1

->binary登录后放。