※上記の広告は60日以上更新のないWIKIに表示されています。更新することで広告が下部へ移動します。

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;