Fatal编程技术网
  • perl/
  • Perl，Image:：Magick，写入时丢失字节

Perl，Image:：Magick，写入时丢失字节

perl imagemagick

Perl，Image:：Magick，写入时丢失字节,perl,imagemagick,Perl,Imagemagick,晚上好 有一个问题 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为JP

晚上好

有一个问题

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\U file\U name为JPEG）。
有什么不对？

图像：：Magick可能会重新编码图像，而不是使用与最初编码时使用的完全相同的算法和参数

如果只是重命名文件，为什么还要使用Image:：Magick？

Image:：Magick可能会重新编码图像，而不是使用与最初编码时完全相同的算法和参数

如果只是重命名文件，为什么还要使用Image:：Magick？

我不想更改JPEG图像。我要压缩的所有其他类型的图像。通过Image:：Magitsk，我可以确定图像的mime类型。这样，在阅读完JPEG图像后，就没有理由
Write（）。您可以使用
copy（$upload->tempname.[0]”，$upload\u file\u name）
from file:：copy复制它们。我不想更改JPEG图像。我要压缩的所有其他类型的图像。通过Image:：Magitsk，我可以确定图像的mime类型。这样，在阅读完JPEG图像后，就没有理由
Write（）。您可以使用
copy（$upload->tempname.[0]”，$upload\u file\u name）
from file:：copy复制它们。