プログラム言語 Perl についての覚え書き

■ PerlMagick

ImageMagick の Perl 用フロントエンド(?)です。画像を色々といじれます。

まず、example.jpg のサイズを半分にします。Read で読み込み、Minify でサイズ変更、Write で書き出しです。

#! /usr/bin/perl
use Image::Magick;

$img_file = "example.jpg";

$i = Image::Magick->new;
$i->Read($img_file);
$i->Minify();
$i->Write("$img_file");

同じく example.jpg のサイズを2倍にします。

$i = Image::Magick->new;
$i->Read($img_file);
$i->Magnify();
$i->Write("$img_file");

今度は example.jp を指定した大きさにします。
横 100 × 縦 100 に。

$i = Image::Magick->new;
$i->Read($img_file);
$i->Scale(width=>100, height=>200);
$i->Write("$img_file");

縦横の比率を保ったまま大きさを変更する。
横幅を指定した幅へ。

$width = 200;

$i = Image::Magick->new;
$i->Read($img_file);
$i->[x]->Scale($width);
$i->Write("$img_file");

今度は縦幅を指定。
※一応これで出来るのですが正しいやり方かどうか不明です。

$height = 200;

$i = Image::Magick->new;
$i->Read($img_file);
$i->[x]->Scale("x$height");
$i->Write("$img_file");

画像のコピーを作成

$i = Image::Magick->new;
$i->Read($img_file);
$i2 = $i->Clone();
$i2->Minify();
$i2->Write("Small.${img_file}");

Posted by Kyosuke Takayama at 2003-05-26 (Mon) 13:15