グラフィックPrg
Fly
ImageMagick
PerlMagick使い方 : http://www.imagemagick.org/script/perl-magick.php
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-08-19 16:15:20