通过 Perl Net::FTP 上传的图像损坏

Question

为什么我在上传到 FTP 服务器时总是收到损坏的图像文件？ .gif 图像不会损坏，只有 .jpeg/jpg 和 .png 会损坏。

sub png{
    my $ftp=Net::FTP->new($fhost)or die &ftpErr;
    $ftp->login($hostname, $hostpass);
    my $img=$ftp->put("$file");
    $ftp->get($img);
    $ftp->quit;
    our $image="$img";
    our $shot=$window->Photo(-format=>'png',-file=>"$image");
    $window->Label(-relief=>'ridge',-image=>$shot,-width=>50,-height=>50)->pack(-anchor=>'n');
}
sub jpeg{
    my $ftp=Net::FTP->new($fhost)or die &ftpErr;
    $ftp->login($hostname, $hostpass);
    my $img=$ftp->put("$file");
    $ftp->get($img);
    $ftp->quit;
    our $image="$img";
    our $shot=$window->Photo(-format=>'jpeg',-file=>"$image");
    $window->Label(-relief=>'ridge',-image=>$shot,-width=>50,-height=>50)->pack(-anchor=>'n');
}

Answer 1

您正在以默认模式传输文件，即 ASCII。此模式翻译行尾。传输二进制文件使用二进制模式：

  $ftp->binary;
  $ftp->put(...);
  $ftp->get(...);