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