Perl Image使用GD调整大小并保持图像质量

Question

我正在尝试使用GD图像库和perl来调整图像大小，但是当调整大小时图像质量与原始上传图像不同。你们有什么建议吗？

以下是我的代码

my $dest_w = $width;
my $dest_h = $width * ($h / $w);

my $dest = GD::Image->new($dest_w, $dest_h, 1);

$dest->copyResampled($src, 0, 0, 0, 0, $dest_w, $dest_h, $w, $h);

open OUT, ">$target" or die "Could not save to $target";
binmode OUT;
print OUT $img->jpeg($quality); 
close OUT;

我的代码有什么问题？谢谢你的建议

注意：我上传了.png图片。即使上传.jpeg图像，图像质量也会下降

Answer 1

尝试在我的示例中定义$ quality，并在输入时使用png进行尝试。

binmode OUT;
$quality=100; 
print OUT $img->jpeg($quality);