« Google Sitemaps | メイン | HTML::Template »
October 12, 2005
ImageMagick
とある案件でImageMagickを使って画像をぼかして表示させたいという要望があったので、ちょっとサンプルプログラムを作ってみました。画像をリサイズしたりするのは昔やったことがあったのですが、ぼかし処理は初めてだったので、ちょっと苦戦。
以下はソース、
#!/usr/bin/perl
use Image::Magick;
use CGI qw(url_param);
$infile = "test.jpg";
$param = url_param("f");
$i = Image::Magick->new;
$i->Read($infile);
$i->Blur($param);
print "Content-type: image/gif\n\n";
binmode(STDOUT);
$i->Write("jpeg:-");
exit;
参考URL：convertコマンドの日本語ドキュメント(サンプル画像付でわかりやすい）
http://hashi4.civil.tohoku.ac.jp/soft/node43.html
CPANのImage::Magickのドキュメント(サンプルが少ないのでちょっとわかりづらい）
http://search.cpan.org/~jcristy/PerlMagick-6.24/Magick.pm
Author nitoka : October 12, 2005 11:16 PM
TrackBack
TrackBack URL:
http://www.nitoka.net/blog/mt-tb.cgi/19
