画像の縦横サイズを取得する〜Image::Size

perl

cpanは以下のurl。
http://search.cpan.org/~rjray/Image-Size-3.220/lib/Image/Size.pm
依存モジュールもたった3つ。Cのコンパイルも不要。これまた使い方がびっくりするほど簡単。

◎使い方

use Image::Size qw/imgsize/;

my ($width,$height)=imgsize($input_image);

縦横サイズが取りたいファイルを$input_image部分に入れる。それだけ。


Image::Imlib2でやろうとしたけど、うまくいかずこちらを使用しました。ちなみに、Image::Imlib2で取ろうとして書いたコードは以下。

use Image::Imlib2;

my $image=Image::Imlib2->new();
$img->load($input_image);
my $height = $img->height;
my $width = $img->width;