secretboots.log: YAPC::ASIA 2011に行って来ました。その２

一番面白かったセッション「画像Hacks (Image Hacks with Perl)」で紹介されていたImagerを使っていろいろと試してみる。

０．画像Hacks (Image Hacks with Perl)の感想
@yusukebeさんの発表。発想力とそれを現実に作ってしまう実現力に感動しました。
Imagerモジュールの紹介。
・サムネイルが作成できる。
scaleメソッド。
・画像の切り取り
cropメソッド
・画像サイズ取得
getwidth/getheightメソッド
・読み込み、書き込み
read/writeメソッド
・フィルター
幕末フィルター　→　Imager::Filter::Bakumatsu
色のマッピングの調整
画像オーバーレイ
・QRコードの生成
Imager::QRCode
→FaceBookカード作成。
・キャプチャ破り
動画投稿サイトなどの、４桁の数字を入力するあれ。
・OpenCVの利用
Cascadeファイルがあれば、Image::ObjectDetectで読み込み可能。
・任意のパターンの認識
OpenCVの学習を利用してCascadeファイルを作成する。
※お●●いを認識させてましたが。。。

http://yapcasia.org/2011/talk/73

とりあえず、今回は幕末フィルターに挑戦。

１．インストール
とりあえず以下のものをcpanでインストール

Imager
Imager::Filter::Bakumatsu

２．サンプル

# フィルター
my $img = Imager->new;
$img->read( file => "$inpath" );
$img->filter( type => 'bakumatsu' );
$img->write( type => 'png', file => "$outpath" );

これをテキトーにCGIにしてみた。

３.実際に動作させてみる。
大都会岡山
岡山県庁と市内東部を流れる旭川