■ PerlMagick
Last Update: 2003--0-5- (Mon) 26: 1
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 printable version
1) osamu (2009-07-13 (Mon) 23:16)
お邪魔します。
ImageMagickの記事をいろいろ探していましてたどり着きました。
私もDebian/Ubuntuの環境下でPerlを使用しています。
テキスト主体の仕事でしたが、先日よりImageMagickを使わないとできない処理をいろいろやっているのですが、画像の書き出しの際にファイルのオーナー（所有者）がwww-dataになってしまいます。通常のシステムユーザーでPerl/ImageMagickを使用していますが、スクリプトを実行したオーナーで書き出してくれません。
このような現象はなかったでしょうか？
もし同様のご経験をされていたら、アイディアをお貸しください。よろしくお願いします。