Fly
ImageMagick
PerlMagickで変換するには、まずImage::Magickのインスタンスを生成します。そして、Read()で画像を読み込み、読み込んだ画像に対して色々な操作を行うのが基本である。サンプルは、logo.jpg を読み込んで、128x96のサムネール(logos.jpg)を生成します。
#!/usr/bin/perl -w
# ImageMagickサンプル
# Windows2000, ActivePerl5.8, ImageMagick5.5.7 で動作確認
use strict;
use Image::Magick;
# バージョン表示
#print $Image::Magick::VERSION;
my($image, $status);
# インスタンス生成
$image = Image::Magick->new;
# 画像読み込み
$status = $image->Read('logo.jpg');
warn($status) if($status);
# 画像リサイズ
$image->Scale('128x96');
# 画像書き出し
$status = $image->Write('logos.jpg');
warn($status) if($status);
# オブジェクト破棄
undef $image;
最終更新:2008年03月15日 23:36