perl - ImageMagick 的 Perl API 创建非常大的 JPEG 缩略图

Question

我正在使用 ImageMagick 的 Perl API 来创建缩略图。我正在使用 ImageMagick 上的建议 image optimization from this previous SO question :

open my $file, $params->{'openFile'};
my $imageData = do { local $/; <$file> };

if ($params->{'size'} eq "largesized") {
    $thumbnailWidth = 1000;
    $thumbnailHeight = 1000;
}   

$image->BlobToImage($imageData);
$image->SetAttribute('quality' => 80);
$image->SetAttribute('compression' => 'JPEG');
$image->SetAttribute('sampling-factor' => '4:2:0');
$image->SetAttribute('interlace' => 'Plane');
$image->SetAttribute('gaussian-blur' => '0.05');
$image->Thumbnail('geometry' => $thumbnailWidth . "x" . $thumbnailHeight);

my $thumbnailData = $image->ImageToBlob();


open(my $file, '>', $params->{'saveFile'}) or return { 'thumbnailGenerated' => 0, error => "Could not open file '" . $params->{'saveFile'} . "'." };
print $file $thumbnailData;
close $file;

据我所知，这应该会创建一个经过优化的缩略图。然而，虽然 input image is 3088x2320 and weighs in at 1.6 MB , the resulting thumbnail at 1000x1000实际上 更大 为 2.3 MB(对于那种大小的 JPEG 来说，这看起来确实很大)。注意:在示例中，它被裁剪了一点，因为上传图像的 JavaScript 强制选择 1:1 裁剪。

我正在运行 ImageMagick 6.9.10-68 Q16 x86_64 2021-10-14 (CentOS)。等效的命令行会按预期生成较小的图像 (84kb):

  convert -thumbnail 1000x1000 -quality 80 -compress JPEG -sampling-factor 4:2:0 -interlace Plane -gaussian-blur 0.05  imageMagickSampleImage.jpg imageMagickSampleImage3.jpg

这让我想知道 SetAttribute 属性是否没有传递给 Thumbnail 函数或其他东西。我发现 PerlMagick 在各个方面都不够完美，并且一直在想我是否只需要使用 GD 来代替。

我注意到缩略图仍然太大(并且比命令行大)，但如果我删除所有“SetAttribute”行，缩略图会变小。 1000x1000 缩略图的输出从 2.4MB 变为 976KB。这仍然比设置了这些相同属性的命令行大 10 倍以上。

我想也许将一些属性直接移动到 ImageToBlob 方法会有所帮助，但它似乎根本没有改变结果。这是那个尝试:

my $thumbnailData = $image->ImageToBlob('quality' => 40, 'compression' => 'JPEG', 'sampling-factor' => '4:2:0', 'interlace' => 'Plane', 'gaussian-blur' => '0.05');

Answer 1

问题显然是，尽管指定了 JPEG 压缩并输入了 JPEG，但 ImageToBlob 方法输出的是 PNG 文件，正如@MarkSetchell 在上面的评论中观察到的那样。

来自 Perl Graphics Programming 的有用代码片段提供解决方案。我相应地修改了我的代码以专门告诉 ImageMagick 输出 JPEG:

 my $thumbnailData = $image->ImageToBlob(magick => 'jpeg');

1000x1000 的图形从之前的巨大尺寸变为仅 167KB。