tatamilab.jp
2007年03月08日22:45 カテゴリLightweight Languages perl - 顔を認識するcgi というわけで、やってみた。 spiritlooseのはてなダイアリー - OpenCVを使って画像の物体認識をするPerlモジュール作った これでとりあえずPerlのみで顔認識のWebサービスとかつくれると思います。 Source http://www.dan.co.jp/~dankogai/img-objdetect/detect_face.src 仕様上の注意 顔検出したい画像のURLを、 http://www.dan.co.jp/~dankogai/img-objdetect/detect_face.cgi/ の後ろにつけるだけ。 完全なα版。「動かない」「検出しない」とか文句を言わないように。 FreeBSDで動かすのはちょっと大変だった。ports版のopenc
最近、OpenCVを使った顔認識が流行っているようです。 顔認識ができるということは、アレができるわけです。 「顔にモザイク!」 Web上で写真を公開するときは、プライバシーを守る必要があるため、顔は隠しておいた方が良い場合があります。 そんな時に、「顔にエフェクトをかけるWebサービス」があれば便利です。 例えば、こんな風に… (spiritlooseのはてなダイアリーさんの写真を使わせてもらいました) というわけで、今回は「顔にエフェクトをかけてプライバシーを守るWebサービスの作り方」をまとめてみます。 1.OpenCVインストール 2.Image::ObjectDetectインストール 3.OpenCV、Image::ObjectDetectのインストールにつまいたとき 4.Imagerを使いこなす 5.顔を塗りつぶすサンプルプログラム 6.顔に特定の画像を貼り付けるサンプルプログ
※ 二度目の公開というタイトルにしましたが、三度目は予定していません。 2 年ぐらい前に、本邦初公開!電話番号の正規表現というネタで、Regexp::Assemble という CPAN モジュールを紹介したことがありました。 あのモジュールを使うことによって、日本で初めて、電話番号を正規表現で表わすという試みをしてみたのですが、該当エントリに書いた通り、 Number::Phone::JP の正規表現が今日現在でも正しいのかどうか等、未検証部分が異常に多いので、自己責任でお使いくださいw というものでした。 その後、Number::Phone::JP モジュール自体も、更新が面倒臭そうなものなせいか、全然更新されていなかったのですが、何やら今日更新版が出ている模様。 どうも作り直したっぽいかんじ。 で、早速ですが、最新版の正規表現テーブルを用いて、最新版の電話番号にマッチする正規表現を作っ
小飼弾のアルファギークに逢いたい♥ #2Ruby on Rails作者 David Heinemeier Hansson(前編) RubyでRailsを書いたわけ 2006年6月10日~11日に開催された日本Rubyカンファレンス2006に合わせて、Webアプリケーションフレームワークとして現在、圧倒的な人気を誇るRuby on Railsの作者、David Heinemeier Hansson氏(以下、DHH)が来日しました。連載第3回目は、カンファレンス翌日、都内某ホテルで行われた“Dan the Perl monger”によるDHHインタビューをお届けします。DHHと弾さんの率直、明快なやりとりは、スリリングで刺激的なセッションとなりました。 編集部注) 本対談は2006年6月に行われたものです。 撮影:武田康宏 Rubyを選んだわけ 弾:最初の質問です。なぜRub
NAME Win32::OLE - OLE Automation extensions SYNOPSIS $ex = Win32::OLE->new('Excel.Application') or die "oops\n"; $ex->Amethod("arg")->Bmethod->{'Property'} = "foo"; $ex->Cmethod(undef,undef,$Arg3); $ex->Dmethod($RequiredArg1, {NamedArg1 => $Value1, NamedArg2 => $Value2}); $wd = Win32::OLE->GetObject("D:\\Data\\Message.doc"); $xl = Win32::OLE->GetActiveObject("Excel.Application"); DESCRIPTION This
こんなんで出来た。 use strict; use Win32::OLE; use Data::Dumper; my $wshell = Win32::OLE->new('Shell.Application') or die "oops\n"; my $HISTORY_FOLDER = 0x22; my $history_dir = $wshell->Namespace($HISTORY_FOLDER); my $url_list = scan_folder($history_dir, []); print Dumper $url_list; sub scan_folder{ my ($folder, $ref) = @_; my $items = $folder->items; for(my $i = 0;$i < $items->count; $i++){ my $item = $it
IndexPage ActivePerl - Windowsで利用できるPerlのバイナリ配布。ActiveState - ActivePerlの配布元。AddHandler - UPSAliasWikiName - WikiページやURLの別名です。amanja - AmazonAssociateProgram - Amazonの販促プログラム「Amazon Associate Program」について。AntennaSiteName - Wikiアンテナで取得するページと種類の登録。Apache::Session - このページの内容はPerlモジュール/Apache::Sessionに移動しました。ApacheCE - General Paranoyaxcで公開されているWindows CE用のApacheに関する情報。AsO - よろしくですBritneyfhgbl - Need
四角の枠に囲ってある段落で、> というマークは出力行、もしくはコマンドラインを意味します。 例 print "Hello\n"; > Hello 謝辞 インターネットのおかげで無料で勉強でき、プログラムの仕事をするようになりました。とても感謝です。そのお返しという程でもありませんが、勉強の成果を公開することにしました。 この講座に掲載した情報のすべては、インターネットからかき集めたものが大半です。その情報が正しいものかどうかは確かめたのですが、それはちょっと怪しいものですので、間違いや誤解などが含まれている可能性があります。 ということで、ちょっとおかしいなと思ったらご報告お願いします。 次にこの講座にきたときは、ただしい文章が掲載されていると思います、たぶん。
オンラインヘルプを見れば分かりますが、実はまだいくつかオプションがありますが、 私の開発用のものです。通常は上のオプション、特に -j オプションだけを 使うことになると思います。 ライブラリとしての使用 (その 1) Exif 情報を読むサブルーチン。 %ExifInfo = &InquireExif( $FileName ); とすることにより %ExifInfo に Exif情報を取得します。ハッシュのキーは Exif のタグ番号(10進)となっています。値はタグ番号に対応する Exif 情報の 生データとなります。生データがそのまま値の場合(時刻情報など)はこの 値を利用すればよいですが、フラッシュの情報など対応表が必要な場合は $ExifTAGDesc->{$lang}->{$TAG}->{$ExifInfo{$TAG}} にデータが記述されて います。$lang は表示言語で
Last modified : 2004-10-16 Copyright © 1998-2006 Somali. All rights reserved.
お品書き ● 文法(スクリプト編) ● 文法(メジャー編) ● PHPよくつかう関数 ● YGS2Kリファ ● なんでも掲示板 ● リンク ● 裏リンク ● てりリン カテゴリ ● :Prog ● :UNIX 最新の10件2007-12-03リンク 2007-10-22裏リンク 2007-10-01飛鳥ももこ 2007-09-30GCCで開発 2007-08-10DでAudiere 2007-07-02なんでも掲示板 2007-06-28TeriyakiWiki 2007-01-12BCCで開発 2006-12-26言語文法比較 2005-10-15PHPよくつかう関数 出口 ● ここのTOP ● ここの日記 ★:外部リンク
プログラマ、と一言で言っても、if文の意味をようやく理解したばかりの駆け出しのプログラマもいれば、汎用的で優れたライブラリを量産できるような凄腕のハッカーもいる、つまりはピンきりです。 Perlプログラマに関してはどうでしょう。一流のPerlプログラマになるためには、見えない階段があるようです。use strict を使い始めたらその階段を一歩上ったと言えるでしょうし、正規表現を理解したときも一段あがることになると思います。リファレンス、クロージャ、オブジェクト指向、CPANモジュール、mod_perl、MVCフレームワーク。それらも階段を構成する材料の数々と言えるでしょう。 さて、Perlプログラミング救命病棟という書籍から、ちょっと長いですがそんなPerlプログラマのレベル10のリストを引用してみます。 レベル1: Perl 関係の書籍や資料を何も読んでいない。Perl がプログラミン
はじめに perlでCGI::Session.pmを使ってセッション管理を行う.idの生成・抹消をはじめ,セッション管理に必要な様々な機能を提供してくれ,非常に便利である. CGI::Session.pmは必要なデータをサーバに置く.すなわち,セッションidを生成した後,サーバ内にidに対応するファイル(DBを指定することも可能)を生成する.セッションで必要なデータはサーバのファイルに保管し,プログラム間を行き来するのはセッションidのみである. CGI.pmも一緒に使うと利便性はさらに高くなる. 動作環境 動作環境は以下の通りである.Windows XP上でWindows版のApache,cygwin版のperlが動いている. Windows XP Professional Apache 2.0.48(Windows版) cygwin 1.5.7-1 perl 5.8.0 インストール
First you make a template - this is just a normal HTML file with a few extra tags, the simplest being <TMPL_VAR> For example, test.tmpl: 最初にテンプレートを作ります - これは <TMPL_VAR> のようにとても簡単な、 2・3 の特殊なタグが入った普通の HTML ファイルです。 例えば、 test.tmpl: <html> <head><title>Test Template</title> <body> My Home Directory is <TMPL_VAR NAME=HOME> <p> My Path is set to <TMPL_VAR NAME=PATH> </body> </html>
by Sam Tregar (sam@tregar.com) Introduction HTML::Template is a new solution to an old problem - Perl CGI development. In order to explain what makes HTML::Template new I'll briefly describe the history of Perl CGI development. If you want to get straight to the useful stuff, you can skip ahead. In the beginning, people wrote CGIs by scattering print statements throughout Perl scripts. The HTML th
UTF-8 の文字にマッチする正規表現 2006-03-09-1 [Programming] UTF-8の文字にマッチする正規表現の素直版。 レガシーなのに対応するとき用にメモ。 [\x00-\x7f]|[\xC0-\xDF][\x80-\xBF]|[\xE0-\xEF][\x80-\xBF]{2}|[\xF0-\xF7] [\x80-\xBF]{3}|[\xF8-\xFB][\x80-\xBF]{4}|[\xFC-\xFD][\x80-\xBF]{5} 1 2 3 4 5 60xxxxxxx 110xxxxx10xxxxxx 1110xxxx10xxxxxx10xxxxxx 11110xxx10xxxxxx10xxxxxx10xxxxxx 111110xx10xxxxxx10xxxxxx10xxxxxx10xxxxxx 1111110x10xxxxxx10xxxxxx10xxxxx
リリース、障害情報などのサービスのお知らせ
最新の人気エントリーの配信
処理を実行中です
j次のブックマーク
k前のブックマーク
lあとで読む
eコメント一覧を開く
oページを開く