Perl，Image :: Magick，寫作時丟失字節數

存在問題。

my $image = Image::Magick->new; 
$image->Read($upload->tempname . '[0]'); 
$image->Write(filename => $upload_file_name, compression => 'None');

執行文件大小（$ upload-> tempname和$ upload_file_name）後不匹配。圖片格式爲jpg（$ upload-> tempname爲JPEG，$ upload_file_name爲JPEG）。什麼可能是錯的？

2012-11-08 drlexa

Image :: Magick可能會重新編碼圖像，而不是使用與最初編碼的算法和參數完全相同的算法。

如果你只是重命名文件，爲什麼你會使用Image :: Magick呢？

2012-11-08 14:52:17 Tim

我想不更改JPEG圖像。我想要壓縮的所有其他類型的圖像。使用Image :: Magitsk，我可以確定MIME類型的圖像。 – drlexa

然後，沒有理由在讀取完JPEG圖像後寫入（）。你可以用'拷貝（$ upload-> tempname。'[0]'，$ upload_file_name）'從File :: Copy複製它們。 – Tim

回答