如何使用 Image::Magick 调整图像大小以适应区域？

【问题标题】：How can I resize an image to fit area with Image::Magick?如何使用 Image::Magick 调整图像大小以适应区域？
【发布时间】：2009-05-21 00:38:44
【问题描述】：

从命令行使用 imagemagick，你可以使用：

convert dragon.gif -resize 64x64^ -gravity center -extent 64x64 fill_crop_dragon.gif

调整图像大小，然后裁剪图像，使其尽可能地填充该区域。

如何通过 Perl 的 Image::Magick 执行此操作？

【问题讨论】：

标签： perl imagemagick resize-image

【解决方案1】：

#!/usr/bin/perl

use strict;
use warnings;

use Image::Magick;

my $image = Image::Magick->new;
$image->read('test.jpg');

$image->Set( Gravity => 'Center' );
$image->Resize( geometry => '64x64' );
$image->Extent( geometry => '64x64' );
$image->Write( 'test-out.jpg' );

请参阅PerlMagick 文档。

【讨论】：