スポンサーサイト 

上記の広告は1ヶ月以上更新のないブログに表示されています。
新しい記事を書く事で広告が消せます。
  • [--/--/-- --:--]
  • スポンサー広告 |
  • トラックバック(-) |
  • コメント(-) |
  • この記事のURL |
  • TOP ▲

Perlで画像の縦横サイズを簡単に取得できるモジュール Image::Size 

URLで指定された画像の縦横サイズ(width, height)を測る必要があったので、メモ。
ファイルハンドルなり、データ実体そのものを渡してやることにより、縦横のサイズを測ってくれるImage::Sizeモジュール。
広く知られる画像形式なら大抵対応してるし、画像形式の判断も勝手にやってくれる。

あらかじめ必要なモジュールはこれらかな。
CPANコマンドからでも、ダウンロードしてmakeでもいいので、とにかくインストールする。
  • Module::Build
  • Compress::Zlib



で、エラー処理とか無視してとっても簡単に書くと、こんな感じ。
簡単!(imgsize()にはファイルハンドラ渡してもOK)


use strict;
use Image::Size;
use LWP::UserAgent;
use HTTP::Request::Common;

my $ua = LWP::UserAgent->new;
my $url = "http://hogehoge.com/foo.jpg";
my $req = GET $url;
my $res = $ua->request($req);

if ($res->is_success) {
my ($width, $height) = imgsize($res->content);
}




モダンPerl入門 (CodeZine BOOKS)
牧 大輔
翔泳社
売り上げランキング: 1173

  • [2007/09/13 08:35]
  • 技術メモ |
  • トラックバック(0) |
  • コメント(0) |
  • この記事のURL |
  • TOP ▲

コメント

コメントの投稿















管理者にだけ表示を許可する

トラックバック

この記事のトラックバックURL

上記広告は1ヶ月以上更新のないブログに表示されています。新しい記事を書くことで広告を消せます。