Perl使用GraphicsMagick按比例缩放图片至不超过800x200的实现方法

需求说明 #

保持图片宽高比不变，最终输出图片宽度不超过800px、高度不超过200px。

Perl 代码实现（Graphics::Magick 扩展） #

版本1：对应PHP逻辑的写法 #

和你提供的PHP实现逻辑完全一致，适配800x200的限制需求：

use Graphics::Magick;

# 初始化图片对象、读取原图
my $image = Graphics::Magick->new;
$image->Read('source.jpg');

# 先按最大宽度800等比缩放
$image->Scale(geometry => '800x');
# 获取缩放后的尺寸
my $height = $image->Get('height');
# 高度超过200则再按最大高度等比缩放
if ($height > 200) {
    $image->Scale(geometry => 'x200');
}

# 保存处理后的图片
$image->Write('output.jpg');
undef $image;

版本2：简化写法（无需手动判断尺寸） #

Graphics::Magick原生支持[max_width]x[max_height]>的语法，自动完成等比缩放、双边限制逻辑，一行代码即可实现需求：

use Graphics::Magick;

my $image = Graphics::Magick->new;
$image->Read('source.jpg');
# 自动等比缩放，保证宽不超800、高不超200，小图不会被放大
$image->Scale(geometry => '800x200>');
$image->Write('output.jpg');
undef $image;

命令行直接调用实现 #

如果不需要走Perl扩展，直接调用GraphicsMagick的gm命令工具即可快速实现：

gm convert source.jpg -scale '800x200>' output.jpg

参数说明 #

• 语法中结尾的>标识：仅当原图尺寸大于指定的最大限制时才执行缩放，小于限制的小图会保留原始尺寸，不会被拉伸放大
• 如果需要所有图片都缩放到刚好不超过800x200的最大尺寸（小图也放大），去掉语法结尾的>即可

内容的提问来源于stack exchange，提问作者melutovich