タグ

Perlに関するpidenoのブックマーク (2)

  • Perlでアニメ顔を検出&解析するImager::AnimeFace - デー

    というのを作ったので自己紹介します。 2月頃から、コンピュータでアニメ顔を検出&解析する方法をいろいろ試しつつ作っていて、その成果のひとつとして、無理やり出力したライブラリです。 はじめに はじめにざっとライブラリの紹介を書いて、あとのほうでは詳細な処理の話を僕の考えを超交えつつグダグだと書きたいと思います。 Imager::AnimeFaceでできること Imager::AnimeFaceは、画像に含まれるアニメキャラクター的な人物の顔の位置を検出し、さらに目や口など顔を構成する部品位置や大きさの推定、肌や髪の色の抽出を簡単に行うことができるライブラリです。 これらが可能になると、 画像から自動でいい感じのサムネイルを作成できる 動画から自動でいい感じのサムネイルを作成できる 自動的にぐぬぬ画像が作れる 自動的に全員の顔を○○にできる 顔ベースのローカル画像検索 など、最新鋭のソリューシ

    Perlでアニメ顔を検出&解析するImager::AnimeFace - デー
  • PerlらしからぬPerl

    CPANモジュール等を使って、Perlっぽくないことをしてみましょう。 例外処理 PerlにはJavaのような例外処理機構がありません。やろうとするとevalで囲ってif( $@ ){ 例外処理 }を繰り返すことになり美しくありません。そこでErrorモジュール(日語訳)を使います。 use Error qw(:try); try { do_some_stuff(); } catch Error with { my $err = shift; print "Exception at line ",$err->{-line}," in ",$err->{-file},"\n"; } finally { print "Goodbye\n"; }; sub do_some_stuff{ die; } my $cond = 1; switch ($cond) { case 1 { print "

    pideno
    pideno 2009/03/30
  • 1