タグ

関連タグで絞り込む (342)

タグの絞り込みを解除

Perlに関するnipotanのブックマーク (741)

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

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

    Perlでアニメ顔を検出&解析するImager::AnimeFace - デー
  • JPAが本格的な活動を開始 Perl技術者の育成や雇用機会の向上を目指す

    Japan Perl Association(JPA)は8日、報道関係者向けに都内で会見を開き、同日より格的な活動を開始することを宣言した。また、同団体の設立の背景や目指すところ、賛同企業各社等も紹介した。 JPAは昨年末に設立された、日におけるPerl言語の啓蒙および普及活動を推進するための一般社団法人。特にビジネスシーンでの支援を想定しており、ドキュメントの整備や新しいPerl技術者の育成、企業サポート、イベント運営などを通し、Perl技術者の雇用機会の向上を目指す。 誕生から既に20年以上が経過しているPerl。支援団体をこのタイミングで設立した背景について、JPA代表理事の牧大輔氏は「Perlに対する誤ったパブリックイメージへの危惧」を挙げた。CGI全盛時代の印象が強く、Perlと言えばCGI、やり方が古いのでは、といった声がよく聞かれると言う。実際にはlivedoorやmix

    JPAが本格的な活動を開始 Perl技術者の育成や雇用機会の向上を目指す
  • 「Perl技術者の雇用を増やす」、JPAが本格始動 - @IT

    一般社団法人Japan Perl Association(JPA)は2009年4月8日、東京・六木で設立会見を開いた。JPAは2008年12月に設立済みだが、今月から活動を格化するという。活動内容は、翻訳を含むドキュメントなどのリソースの整備、研修などの教育サービスの提供、Perlコミュニティの会合「YAPC::Asia」などのイベント運営、IPv6やクラウドの応用などPerlで実装する次世代技術研究支援、求人サイト運営の5つ。代表理事 牧大輔氏はJPA設立の目的を「Perl技術者とその雇用を増やす」と説明する。 JPAにはライブドア、mixi、DeNA、シックス・アパート、Paperboy&co.など18社が加入、計23社が協賛企業として参加している。これら企業の開発現場で培われてきたノウハウを広めていきたいという。 Perlは、特にWebサービス開発の現場では広く使われてきた歴史

  • 「Perl技術者の雇用を増やしたい」,普及推進団体Japan Perl Associationが活動開始

    「Pelは大規模Webサービスを支え,今も進化している。しかしそのことが広く知られていない」(Japan Perl Association代表理事 牧大輔氏)――Japan Perl Association(JPA)が2009年4月8日,正式に活動を開始した。JPAはPerlの普及推進を目的とした一般社団法人。東京で開催される国際イベントYAPC::Asia(Yet Another Perl Conference Asia)の運営を始めとする普及活動を行う。 「Perl歴史が長いため,古い言語と見られることもある。しかしPerlはライブドア,ミクシィ,ディーエヌエーだけで月間360億ページビューを処理するなど,今もWebを支える存在。現在では進化したモダンな開発方法論が用いられており,Perl自体の開発も活発に行われている。にもかかわらず,そのことを啓蒙する団体がなかった」(牧氏)。 こ

    「Perl技術者の雇用を増やしたい」,普及推進団体Japan Perl Associationが活動開始
  • Perlは古い? イメージ復権へ普及団体「JPA」始動、技術者レベル底上げへ

    JPA理事(前列)と賛同企業の代表者。前列左から2人目が牧大輔さん、3人目がライブドアの池邉智洋最高技術責任者、4人目がDeNAの山口徹さん Perl言語の普及を目指す一般社団法人Japan Perl Association(JPA)がこのほど、格的な活動を始めた。ライブドアやミクシィ、ディー・エヌ・エー(DeNA)など、自社サービスをPerlで構築している23社が賛同。Perl関連資料の整備や技術イベントの開催、技術者の教育、雇用促進などに取り組む。 Perl関連のドキュメントやリソースなどWebサイトに集約し、技術者が参照しやすいようにするほか、「YAPC Asia Tokyo」など技術イベントを主催してイメージ向上に努める。クラウドやIPv6対応など、先進的な技術の研究も支援。Perlの研修・教育サービスや、検定試験、求人サイト運営も行い、技術者のレベルを底上げしていく。 Perl

    Perlは古い? イメージ復権へ普及団体「JPA」始動、技術者レベル底上げへ
    nipotan
    nipotan 2009/04/08
    もうちょっと Emerson に触れてあげてもいいんじゃないか?
  • 正規表現でマッチした部分のキャプチャ ($1,$2とか) について勘違いをしていた - @kyanny's blog

    今後また間違えそうなので丁寧めにメモ。 追記 コメント欄でせいきひょうげんの先読みという機能について教えてもらった。まだ理解できてないけど、たぶんそれを使えばスマートに解決できるのだと思う。あと、例としてかいた式が間違っていたので修正した。 - my ($a, $b) = "/b/x/2" =~ m{^(?:/(a)/x/(1))|(?:/(b)/x/(2))}; のようなコードを書いて、 $a も $b も undef になるのでしばらく悩んでいたけど、この書き方だと問題があった。 以下のようなコードを書いてみたら、意味がわかった。 #!/usr/bin/perl use strict; use Data::Dumper; my $a = q{/a/x/1}; my $b = q{/b/x/2}; my $c = q{/c/x/3}; for my $x ($a, $b, $c) { i

    正規表現でマッチした部分のキャプチャ ($1,$2とか) について勘違いをしていた - @kyanny's blog
    nipotan
    nipotan 2009/04/08
    my($a, $b) = "/b/x/2" =~ m{/(a(?=/x/1)|b(?=/x/2)|c(?=/x/3))/x/((?<=a/x/)1|(?<=b/x/)2|(?<=c/x/)3)};
  • 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

    nipotan
    nipotan 2009/04/02
  • Perl の Regexp::List で capture => 1 が効かない件 - miau's blog?

  • 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

  • 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

  • App::SocialSKK の socialskk.pl を自動起動するようにした

    antipopさんのApp::SocialSKKをさっそくインストールして使ってみた。 これは素晴しすぎる! 使えるまでを軽く説明しておく(Macの場合)。 まずインストール。 # cpan App::SocialSKK この際 socialskk.pl も同時にインストールされます。 次に $HOME/.socialskk に plugins: - name: SocialIME - name: HatenaBookmark - name: Wikipedia こんな感じに書く。 あとはsocialskk.plを起動するだけでApp::SocialSKK使える状態になります。 AquaSKK側での設定は「環境設定」の「辞書」タブで「+」を押して辞書を追加し、辞書の種類を「外部 skkserv 辞書」にし、場所を「localhost:1179」にするだけです。 (ちなみにいままでMacでは

  • Perl で Win32::API プログラミング入門 - 竹迫の近況報告

    ActivePerl (Windows版) には Win32::API - Perl Win32 API Import Facility - metacpan.org が付属しているので、今日からすぐに Win32::API を利用したプログラミングが出来ます。 簡単なメッセージボックスを表示するPerlプログラムは以下になります。 #!/usr/bin/perl use Win32::API; my $MessageBox = Win32::API->new("user32", "MessageBoxA", "NPPN", "N"); $MessageBox->Call(0, "Hello, World!\n", "Message", 0); このプログラム実行すると、「Hello, World!」と書かれたWindowsメッセージボックスが表示されます。 これを Win32::API

    Perl で Win32::API プログラミング入門 - 竹迫の近況報告
  • 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

    nipotan
    nipotan 2009/03/19
    package DB;
  • JPAの活動内容 - D-6 [相変わらず根無し]

    JPAの活動内容 コメントリストを見ていたら未承認のコメントがあったので先ほど承認しておいた。 地方在住の方に関してはJapan Perl Associationは最初から地方での活動を視野に入れて団体を作った、というのは断言しておきます。ちゃんとこれから東京以外の地域でも活動はしていく予定です。 ちなみにまだ未確定ですが第一回セミナーと同時期に関西地区でのセミナーも視野に入れて調整中です。その後も、ニーズに合わせて少しずつ活動を広げていくつもりです。とりあえず考えているのは広島、仙台、北海道あたり。それ以外は行かない、というより、個人的になんの予備知識もないため、これから調査をする必要があります。情報及びヘルプは随時募集いたしますので是非ご連絡ください。ただ、もうしばらくは地盤固めのほうが先に来てしまいがちになるのはどうか理解いただきたい。 なお録画に関しては正直他のことにかまけていて忘

  • perl - FreeBSD::i386::Ptrace released! : 404 Blog Not Found

    2009年03月14日22:30 カテゴリLightweight Languages perl - FreeBSD::i386::Ptrace released! FreeBSD::i386::PtraceをCPANに上げたのでお知らせします。 /lang/perl/FreeBSD-i386-Ptrace/trunk - CodeRepos::Share - Trac Dan Kogai / FreeBSD-i386-Ptrace/ - search.cpan.org http://www.dan.co.jp/~dankogai/cpan/FreeBSD-i386-Ptrace-0.01.tar.gz FreeBSD-i386専用ですが、これを使うと、ptrace(2) を Perl からお手軽に使うことが出来ます。 以前からあったらいいなと思っていたのですが、いざ作ってみるとあっさり出来

    perl - FreeBSD::i386::Ptrace released! : 404 Blog Not Found
  • fork したくてたまらない貴方に。 - tokuhirom's blog

    こんにちは、金曜日の担当、素敵なレディーことtokuhiromです。 最近 Perl Mongers の注目を集めている system call といえば fork(2) ですが、fork ひとつとってもいろいろ方法があるのが TIMTOWTDI をモットーとする perl のいいところです。というわけで、いろいろな fork の方法についてみんなで調べてみました。 数ある fork する方法の中から、あなたの life style にあった fork 術を探すということは、あなたの人生を豊かにします。Enjoy! # ========================================================================= # How do you like fork(2) # # =================================

    nipotan
    nipotan 2009/03/13
  • Dan the API shell 書いた - tokuhirom's blog

    http://gist.github.com/77254 Dan さんの perl eval API が便利だとおもった。どんなコードが実行できるのかためしたかったので、shell っぽく eval することにした。 Term::ReadLine で shell っぽく入力させて、URI::Escape でエスケープして、LWP::UserAgentAPI になげて JSON.pm で eval させてるだけ。 以下は実行例 dan> use XML::LibXML; Warning: XML::LibXML compiled against libxml2 20703, but runtime libxml2 is older 20702 dan> unpack 'p', 0xdeadbeef; dan> print "$ENV{SERVER_ADMIN}\n"; <ちょ、メアドみ

    nipotan
    nipotan 2009/03/11
  • perl + IPv6 - LWPをPatchなしでIPv6対応にする : 404 Blog Not Found

    2009年03月08日23:30 カテゴリLightweight LanguagesTips perl + IPv6 - LWPをPatchなしでIPv6対応にする というわけで、実際にIPv6を(改めて)はじめてみたら、意外な大御所が未対応だということが判明。それがLWP。 Crypt::SSLeayかIO::Socket::SSLを入れればSSL対応になるように、IO::Socket::INET6を入れればIPv6対応になるかと思えば、そうは問屋がおろしませんでした>< #!/usr/local/bin/perl use strict; use warnings; use LWP::UserAgent; my $uri = shift || die "$0 [url]"; my $res = LWP::UserAgent->new->get($uri); print $res->sta

    perl + IPv6 - LWPをPatchなしでIPv6対応にする : 404 Blog Not Found
  • 花粉の飛散量を取得する Perlモジュール : DSAS開発者の部屋

    すっかり花粉が飛び交う季節になってしまいました。 今や花粉症は5人に1人疾患する症状とも言われており、マスクや薬などによる花粉対策の準備を始めている方が多いのではないかと思います。 そこで、今回はプログラマに出来る花粉対策を紹介したいと思います。 花粉症対策にはとにかく花粉を吸わないことが重要です。 大量の花粉にばく露されることで、症状が悪化したり、今まで花粉症で無かった人も花粉症が発症する場合があります。 つまり花粉が多く飛んでいる時間帯をなるべく避けることが有効な花粉対策なのですが、 天気予報の花粉飛散情報は1日単位のデータだったりして、参考にならないことが多いです。 環境省が運用する花粉観測システム(はなこさん)では1時間毎の花粉飛散データが公開されています。 1時間毎に花粉飛散データが更新されるため外出のタイミングを決定するのに役立ちます。 プログラマであれば、このデータを cro

    花粉の飛散量を取得する Perlモジュール : DSAS開発者の部屋
  • 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