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

发布时间：2020-12-15 21:49:10 所属栏目：大数据来源：网络整理

导读：从带有imagemagick的命令行,您可以使用： convert dragon.gif -resize 64x64^ -gravity center -extent 64x64 fill_crop_dragon.gif 调整大小然后裁剪图像,使其尽可能地填充该区域. 我如何从Perl的Image::Magick中做到这一点？解决方法 #!/usr/bin/perluse

从带有imagemagick的命令行,您可以使用：

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

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

我如何从Perl的Image::Magick中做到这一点？

解决方法

#!/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文档.

（编辑：李大同）

【声明】本站内容均来自网络，其相关言论仅代表作者个人观点，不代表本站立场。若无意侵犯到您的权利，请及时与联系站长删除相关内容!