画像の大きさの取得
Image::Magickモジュールを使うと画像の大きさを取得することができます。
WindowsのActivePerlでImage::Magickモジュールを使うためにはImagMagickのダウンロードが必要になります。
use strict;
use warnings;
use Image::Magick;
my $src_filename = 'input.jpg';
my $image = Image::Magick->new;
my $status = $image->Read($src_filename);
die $status if $status;
my ($width, $height) = $image->Get('width', 'height');
print "$width x $height\n";
関連項目
・画像サイズの変更・JPEGファイルの情報取得
・JPEGの画像の大きさ取得
・画像に文字を書き込む
