Perlでアニメ顔を検出＆解析するImager::AnimeFace - デー
というのを作ったので自己紹介します。 2月頃から、コンピュータでアニメ顔を検出&解析する方法をいろいろ試しつつ作っていて、その成果のひとつとして、無理やり出力したライブラリです。 はじめに はじめにざっとライブラリの紹介を書いて、あとのほうでは詳細な処理の話を僕の考えを超交えつつグダグだと書きたいと思います。 Imager::AnimeFaceでできること Imager::AnimeFaceは、画像に含まれるアニメキャラクター的な人物の顔の位置を検出し、さらに目や口など顔を構成する部品位置や大きさの推定、肌や髪の色の抽出を簡単に行うことができるライブラリです。 これらが可能になると、 画像から自動でいい感じのサムネイルを作成できる 動画から自動でいい感じのサムネイルを作成できる 自動的にぐぬぬ画像が作れる 自動的に全員の顔を○○にできる 顔ベースのローカル画像検索 など、最新鋭のソリューシ
tokuhirom blog
Blog Search when-present<#else>when-missing. (These only cover the last step of the expression; to cover the whole expression, use parenthesis: (myOptionalVar.foo)!myDefault, (myOptionalVar.foo)?? ---- ---- FTL stack trace ("~" means nesting-related): - Failed at: ${entry.path} [in template "__entry.ftlh" at line 3, column 25] - Reached through: #include "__entry.ftlh" [in template "entry.ftlh" at
第2回 mro：次のメソッドはどこ？ | gihyo.jp
モダンなクラス／オブジェクトのあり方は？ Perlではそもそもオブジェクトという考え方自体が、Perl 5（Perl 7歳）ではじめて登場した、後付けのものでした。また、その実装も非常におおらかなものだったため、より「本格的な」オブジェクト機構を備えた言語のユーザからはしばしば批判されてきました。 ただし、転んでもただでは起きないのがPerlハッカーたちのよいところ。そのような批判を糧に、「モダンPerl」の世界でもっとも激しく、多様に進化してきたのがこの分野です。 今回はそのようなクラス／オブジェクトの進化の一例として、クラスの継承とメソッドの解決順序にまつわる話題をまとめていきます。 継承によるクラスの拡張 伝統的なbaseプラグマを使ってクラスを拡張する場合、継承元と継承先に同名のメソッドがあれば継承先のメソッドだけが優先的に実行されます。 use strict; use warn
さくらインターネットサーバでのCPAN導入を完全に手順化して見た - Perl入門ゼミ
Perl › 環境構築 (この記事の内容は古くなっています、現在はcpanmを使ってモジュールをローカルにインストールするのが簡単でしょう。cpanmによるローカル環境構築を見てください。) otsuneさんのところでさくらインターネットのレンタルサーバでCPANを使用する方法が紹介されているのですが、一部手作業が発生するので、すべてコピペで実行できるように手順化してみました。 さくらインターネットサーバcpan導入手順 # ライブラリのためのディレクトリの作成 mkdir -p ~/local # CPANの設定ファイルを作成 echo no | cpan # cpanコマンドの設定ファイルMyConfig.pmの書き換え # ( __END__の行まで一気にコピーして実行してください。とまった場合はEnter ) perl - ~/.cpan/CPAN/MyConfig.pm > ~/
tokuhirom blog
Blog Search when-present<#else>when-missing. (These only cover the last step of the expression; to cover the whole expression, use parenthesis: (myOptionalVar.foo)!myDefault, (myOptionalVar.foo)?? ---- ---- FTL stack trace ("~" means nesting-related): - Failed at: ${entry.path} [in template "__entry.ftlh" at line 3, column 25] - Reached through: #include "__entry.ftlh" [in template "entry.ftlh" at
Moose（Mouse）の基本。アクセサのコードを読んでみる
「ウェブリブログ」は 2023年1月31日 をもちましてサービス提供を終了いたしました。 2004年3月のサービス開始より19年近くもの間、沢山の皆さまにご愛用いただきましたことを心よりお礼申し上げます。今後とも、BIGLOBEをご愛顧賜りますよう、よろしくお願い申し上げます。 ※引っ越し先ブログへのリダイレクトサービスは2024年1月31日で終了いたしました。 BIGLOBEのサービス一覧
local::libを使った非rootでのCPAN環境構築 - hide-k.net#blog
miyagawaさんが紹介されていたlocal::libを使って非rootでのCPAN環境を作ってみました。平たく言えばさくらインターネットのレンタルサーバで一般ユーザーでCPAN環境を作ってみました。 とはいえ、多くは先人たちの otsune's FreeBSD memo :: ユーザー領域にCPANをインストールする方法 さくらインターネットでCPAN - Charsbar::Note と大差ありません。 まずはlocal::libのアーカイブを取得・解凍します。最新のバージョンは1.003001です。 wget http://search.cpan.org/CPAN/authors/id/A/AP/APEIRON/local-lib-1.003001.tar.gz tar xzvf local-lib-1.003001.tar.gz cd local-lib-1.003001 ots
Config::PitとWeb::ScraperとPlaggerで24時間365日のゲーム監視体制
序文 趣味のネットウォッチのために仕方が無く超便利なPerlを覚えようという感じの otsune です。そんなわけでコーディングの深い話はよくわからんので、今回はPerlとCPANを使ってネットウォッチを支援する手法について書きます。 ウォッチしたいWebページを機械的に監視できれば、あとはPlaggerなどの便利ツールを使って「メールを出す」「im.kayac.comでメッセンジャーにアラートを出す」「ピザを注文する」など好きな処理をすることが出来ます。 RSSフィードやAPIなどがあるWebサイトであれば特に苦労はしないのですが、今回取り上げるOgame.jpはウェブブラウザーゲームなので、フィードなど便利な機能はまったく存在しません。 そこでウォッチしたいWebページに対してWeb::Scraperを使ってYAMLを出力する短いスクリプトを書いてしまいます。 メールを出すなどのこまご
エキスパートPerl - 変態モジュール総覧
Perl の世界には、「変態モジュール」と呼ばれるモジュールがたくさん存在します。 これらは、モジュールの形態をとりながら、Perl の内部に踏み込み、蹂躙しているという恐ろしい存在です。 しかしながら、これらのモジュールは使いどころを間違えなければ非常に有用であり、あなたのプログラムに無限の可能性をもたらすことでしょう。 自分の足をどうやって撃ちぬくか、よく考えてからつかってください。 下記のモジュールたちは、それ自体が変態的なものもあれば、変態的なことをするときに使うモジュールもあります。 PadWalker PadWalker は変態モジュールの筆頭です。レキシカルスコープの変数を、レキシカルスコープの外から見たり書き換えたりできます。 peek_my peek_our peek_sub closed_over という４つの関数をサポートしています。 下記のようなありえない操作を可能
Tepl のランタイム用に汎用 filter を作る - Tociyuki::Diary
⇒ https://github.com/tociyuki/libtext-tepl-runtime-perl Text::Tepl::compose で eperl で記述されたドキュメントから perl スクリプトのテキストへ変換できるようになりました。このスクリプトを実行するには eval して関数リファレンスにコンパイルして得られる関数リファレンスをコールします。このとき filter 関数を必要とします。なぜならば、Tepl では perl 式の結果を出力ドキュメントへ埋め込む際に必ず filter 関数を呼び出すようにスクリプトを作るからです。このとき、filter の第1引数に、プロセッシング・インストラクションのターゲット(以下、PIターゲットと略します)から生成した配列リファレンスを渡します。第2引数以降に perl 式をそっくりそのまま書き込みます。いくつか変換例をあげ
tokuhirom blog
Blog Search when-present<#else>when-missing. (These only cover the last step of the expression; to cover the whole expression, use parenthesis: (myOptionalVar.foo)!myDefault, (myOptionalVar.foo)?? ---- ---- FTL stack trace ("~" means nesting-related): - Failed at: ${entry.path} [in template "__entry.ftlh" at line 3, column 25] - Reached through: #include "__entry.ftlh" [in template "entry.ftlh" at
Perlチュートリアル — LL温泉
今すぐやりたい。そんな夜があることでしょう。男性に限らずに女性にだってそんな夜はあると思います。女性は一人でしないとか、自分から求めないなんて現実とは程遠い言葉だと思います。なぜなら「都合の悪いことは言葉に出さない」という女性が多いからです。ということは、裏を返せば女性だって一人でする夜もありますし、眠れない夜を誰かと過ごしたい願望だってあります。男性と同じように、「今日はしたい」と思う時だってあるのです。そうと解ればあとはどこで出会うかだけですよね。優良な出会い系サイトを使用するのも良いでしょう。しかし、すぐに会うことは意外に難しいかも知れません。なぜなら出会い系サイトはある程度連絡を重ねるとポイントが女性に入るシステムになっているサイトが多いためです。すぐに会うよりもある程度期間をおいてから会ったほうが女性にしたら会えるしポイントはたまるしでお得なのです。ですので即日会いたい場合は出会
ウェブリブログ：サービスは終了しました。
「ウェブリブログ」は 2023年1月31日 をもちましてサービス提供を終了いたしました。 2004年3月のサービス開始より19年近くもの間、沢山の皆さまにご愛用いただきましたことを心よりお礼申し上げます。今後とも、BIGLOBEをご愛顧賜りますよう、よろしくお願い申し上げます。 ※引っ越し先ブログへのリダイレクトサービスは2024年1月31日で終了いたしました。 BIGLOBEのサービス一覧
YappoLogs: List::Rubyish をリリースしました
List::Rubyish をリリースしました ブクマコメントでnaoyaさんからhttp://github.com/naoya/list-rubylike/tree/master/lib/List/RubyLike.pmがバグも無くていい奴だから、そっちとdiffとって適用したほうがいいよ！とアドバイスいただいて、その差分をmergeしつつList::RubyListのテストコードをコピペするだけの簡単なお仕事をしてテストカバレッジ率も100%になったのでshipitしました。 というかnaoyaさん & secondlife 組の元コードのテストカバレッジ率が90%くらいだったので物凄く楽出来ました＾＾ http://search.cpan.org/dist/List-Rubyish/にそのうち反映されるはず。 List::RubyLike は use すると list 関数を exp
wakaponさんの超☆Perl備忘帳: Perl サンドボックス Safe.pm
5.10.0のlibディレクトリをあさっていて、Safe.pmなる標準モジュールを発見したので使ってみる。Safeがどんなモジュールかは、Nameのところにある1文がすべてを示している。 Safe - Compile and execute code in restricted compartments 制限された仕切り部屋でコンパイルと構文木の実行を行う。要するに、危険と思われる機能を取り払ったサンドボックスを作って、その中でコードを実行する。おそらくこのモジュールは、安全かどうかわからないPerlプログラムを隔離された場所で実行したいなー、というときに使われる。 実際にモジュールの機能を実感してみる。まずは最初の一歩として、Safe.pmのrevalメソッドを使ったサンプルプログラムの実行から。(See also ファイル指定版のrdoメソッド) revalメソッドの利用例 # 実行環
おどおどしつつCatalystをモバイルサイト開発に導入してみた：主要モジュール習得編 - とあるモバイル系エンジニアの日々
今回は、開発に際し、基礎知識として必要となった主要モジュールについて、習得していった経緯を書いてみます。 DBIx::Class まずは、なんといってもモデルの基本となるO/Rマッパー、DBIx::Classおよび連携部分を理解を進めました。 DBIx::Classはこれ自体が巨大な機構なので、理解もひと苦労なのですが、まずは何はともあれ、「今日のCPANモジュール」の「use DBIx::Class」を読んで雰囲気を掴むと分かりやすいです。 とはいえ、このコンテンツはあくまでイントロレベルなので、実用にはやっぱり一次情報をよく読むのが結局近道だと思います。 まずはDBIx::Classのマニュアルイントロがなんといっても分かりやすいです。 DBIx::Class::Manual::Intro ここできっちりResultSourceやらResultSetやらの考え方を理解しておくと、各関数
リリース、障害情報などのサービスのお知らせ
最新の人気エントリーの配信
j次のブックマーク
k前のブックマーク
lあとで読む
eコメント一覧を開く
oページを開く
モダンPerlの世界へようこそ 記事一覧 | gihyo.jp
JPerl Advent Calendar 2008
perl-mongers.org
Perlゼミ(サンプルコードPerl入門)