| |
では、簡単な使用方法を紹介
use Image::Magick; #ImageMajickの使用宣言
sub getsize{
local ($filemei) = @_;
my $im = new Image::Magick;
$im->Read($filemei);
($width, $height) = $im->Get("width", "height");
}
上記の様に、サブルーチンを組んでますが、無理にサブルーチンにしなくてもよい。
( $width, $height ) = &getsize( $filemei );で呼び出してます。
画像形式変換です。
my $im = new Image::Magick;
$im->Read($inimage);
$im->Write($putsam);
画像の切り抜き
my $im = new Image::Magick;
$im->Crop(width=>26, height=>26, x=>287, y=>251);
#座標を数値で指定するCrop
@info{'width', 'height'} = $im->Get('width', 'height');
#size読み出し
$im->Set(page=>"$info{width}x$info{height}+0+0");
#Set page関数
$im->Write('resized.gif'); #画像を保存する
#上下に反転する
my $im = new Image::Magick; #インスタンス生成
$im->Read($source); #画像を読込む
$im->Flip;
#上下反転
$im->Write("./image_flip.jpg"); #画像を保存する
まだまだ、色々出来そう。
|
|
