画像サイズの変更

---

　Image::Magickモジュールを使うと画像サイズを変更することができます。

use strict;
use warnings;
use Image::Magick;

my $src_filename = 'input.jpg';
my $dest_filename = 'output.jpg';

my $image = Image::Magick->new;
my $status = $image->Read($src_filename);
die $status if $status;

my ($width, $height) = $image->Get('width', 'height');

$image->Resize(width => ($width * 0.5), height => ($height * 0.5));

$status = $image->Write($dest_filename);
die $status if $status;

---

関連項目

・画像の大きさの取得
・画像に文字を書き込む