Via 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(...);