(firstly written in Japanese, later in English) こんにちは。愛に飢えずに愛を植えたいmakamakaです。 CPANモジュールって便利ですよね！　ところで、皆さんはCPAN屈指のLoveなモジュールをご存じでしょうか？ ええ、あるんですよ！　ずばり名前空間Loveから始まるモジュールが！ それがLove::Match::Calcです。 このモジュールに二人の名前を渡すと相性度を教えてくれます！　まあ素敵。 use strict; use Love::Match::Calc; my $first = "Nagisa"; my $second = "Honoka"; my $m = lovematch( $first, $second ); print "$first と $second の相性は…… $m％\n"; 文字列を分解して何か色々計算

今年はHokkaido.pmからはるばる YAPC::Asia に出張してきたkeroyonnです。 嫁にYAPCの写真を見せて「ほらみんなMacでしょー」と言ったら、不憫に思ったのかMacBookProを買ってくれました。 ひとりだけ違うメーカーのランドセルをしょった可哀想な子供を連想したらしいです。 すばらしいですなっ! YAPC は! WebService::Async とは さて今回ご紹介する、WebService::Async というモジュールは、yusukebe さんの WebService::Simple の非同期版です。 WebService::Simple はカジュアルにウェブサービスにアクセスできる素晴しいモジュールだなぁと思っていたのですが、非同期処理ができないため同時に複数のリクエストを投げるのがちょっと面倒でした。 これを簡単に書けたらいいなーと思って作ってみまし

こんちには 、 みさなん 、bayashi です。 さくむて かなぜど ひいて いですないか 。 おかだらは くれれぐも お だいじに 。 げきんが あれば こーども かける ！ げきんが あれば AKB48も うたえる ！ さて 、 あれ 、 なだんか へんすでね 。 あれれ 、 よく わせかまりんが 、 この ぶょんしう 、 よめて いすまか ？ よめますね 。 なぜか よすまめね 。 かなり びみかょうも しせんまれが 、 よめすまね 。 よなめい ひとは 、 がばっんて よんで くさだい 。 はい 、 そでうす 。 いちじ わいだに なった 「 なぜか よめる ぶょしんう 」です 。 きうょは 、 この ような なぜか よめ る ぶうしょんを せせいい する もじゅーるを しかょうい します 。 もう 、 かんの よい かたは きづいて いかると おいすもまが 、 いっ ぱつ ねた

nihenです。こんにちは。 今年もブクマ数ビリを目指したいとおもいます！ Perl界隈で今年はText::Xslateというテンプレートエンジンが流行っています。 しかしこのXslateで現在主流に使われているSyntaxはTTerse*1であり、XslateネィティブともいえるKolonはまだあまり使われていないというのが現状のようです。 というわけで今回はKolonの使い方の基本を紹介します。 Perlコード側 use Text::Xslate; use Hash::MultiValue; my $tx = Text::Xslate->new(); my $var = { foo => 'xslate', bar => { baz => '111', bazbaz => '112', }, baz => [5, 6, 7], hoge => Hash::MultiValue->new

こんにちわ。のどの痛みと熱でだいぶ体がだるい上に、開けていないフィギュアの箱を思いっきり踏んでしまって軽く凹んでいる xaicron です。 今日紹介するモジュールは Win32::GUITest というとってもナイスなモジュールです。 これの詳しい説明は、その昔に amachang が書いていますのでそちらを見るのが良いかと思います。 簡単にいうと、window 名から window を取得したり、キーボード入力やマウス入力をエミュレートしてくれる便利なやつです。 普段は、iTunes や foobar2000 を愛用していますが、たまに楽曲情報が見つからなかったりするときに、割と簡単に gracenote に情報を登録できるので SonicStage を使ってます。（最近、X-Application とかいう名前に変わってしまったみたいですが） しかし、これのインターフェースってまぁ当

HTTPサーバフレームワークとしてのPlack活用法と、Plack::Middleware::Pictogram::MobileJpを使ったその事例紹介 実はお腹回りが入らなくなってスーツを新調したhirose31です。 みなさん、Plack使ってますか？ 弊社でもStarletをNginxのバックエンドに置いてプロダクション環境でモリモリ使っているのですが、ちょっとした検証にもPlackは大変重宝しています。 具体的には、キャッシュに関連するレスポンスヘッダ(Last-Modified、Expiresなど)の組み合わせと、条件付きGETやブラウザキャッシュの挙動をブラウザごとに調べたときに使いました。あくまで検証用と割りきって特にファイル分割などはせず、psgiファイルにゴリゴリっとベロっとコードを書いてパパパっと検証用のHTTPサーバを作りました。 このように、限定された目的のHTTP

こんにちは、hide_o_55です。 みなさんアクメで思い浮かべるものは何でしょうか？ そうです、アクメツですね。 ということで名前だけ思いついて、勢いで作ったAcme::Tsuを紹介させて頂きます。 あ、ちなみにこれが僕の初Acmeです。 まず、インストール。 git clone git://github.com/hideo55/p5-Acme-Tsu.git cd p5-Acme-Tsu perl Makefile.PL make && make install 次に使い方 use Acme::Tsu; print "Hello world\n"; これだけです。 これでどうなるかというと、Acme::Tsuをuseしたスクリプトがアクメツになります。 こんな感じです↓ $ perl helloworld.pl $ cat helloworld.pl use Acme::Tsu; (

最近大画面テレビを買ったのですが来ている電波がデジタル化されていませんでした。 こんばんは。hidekです。 というわけで、今回は国民的スーパーアイドルグループAKB48を堪能できるモジュールを紹介させてもらいます。 リポジトリはこちらです。 AKB48については最近の活躍で皆さんよくご存じだと思うので多くは説明しませんが、現在チームA, チームK, チームBの各16人の正規メンバーと24人の研究生からなるアイドルグループです。 個性的なキャラが多いので比較的覚えやすいのですが、テレビを全く見ない貴兄や、2次元しか興味がない貴兄にとっては、ひょっとしたら覚えられないことがあるかもしれません。そんなことになったら学校や職場で会話に入れず肩身の狭い思いをすることになるでしょう。 そんなときのために是非このモジュールを活用してください。 このモジュールは前回でも紹介されたAcme::Mornin

perlハッカー1のドラゴンズファンと自負しております、typesterです。 今回はあんまりちゃんとした記事がないiPhoneのプッシュ通知の仕組みと、それをperlから実装するにはどうしたらええんじゃ、という話をします。 iPhoneプッシュ通知の概要 iPhoneのプッシュ通知とはサーバーアプリケーションからリアルタイムにiPhoneに通知を送ることができる仕組みのことで、 通知対象のiPhoneアプリケーションが起動していなくても、またiPhoneがロック状態であってもいつでも通知を送ることができます。 通知が送られるとiPhoneでは以下のような画面が表示され、その通知からアプリケーションを起動することができます。 iPhoneプッシュ通知の仕組み サーバーアプリケーション（通知プロバイダーと言います）はiPhoneに直接通知パケットを送るわけではなく、代わりにアップルが用意して

こんにちわ。Windows 界の渡辺篤史と呼ばれている mattn です。口癖は「いい Windows API ですねぇ」です*1。 ところで勤務表ちゃんと付けてますか？ちゃんと毎日付けてますか？ でも色々あって書けない時もありますよね！気付いたら終電！勤務表更新しようと思って朝来たらトラブル！ ある ある ある ある ！ で、「えぇーーーっとあの日、何時から何時まで仕事したっけ...」とかなりませんか？なりますよね？ Perl で解決しましょう！ 「管理ツール」の「イベントログ」を起動するとシステムログに「イベントログサービスの開始」のイベントと「イベントログサービスの停止」のイベントが出力されているのに気付きます。 これ、日別で開始時刻と終了時刻まとめたら勤務時間になるじゃんとか悪い事を考えてるのは誰ですか！ やりましょう！ Windows のイベントログを操作するには Win32::

2 年前の JPerl Advent Calendar では風邪でブッチした前科を持つ nipotan です。今回、Casual Track に申し込んだとついさっきまで思い込んでて、うっかり今年もやらかすところでした。 Hacker Track は自分のモジュール紹介ということなので、今まで一度も紹介していない、結構軽いノリのやつでいかせてもらいます。 私が Perl をはじめた頃、「ばよえ～ん警報発令!?」でお馴染みの大崎さんによる「Perl メモ」をよく見ては、様々な Tips を参考にさせていただいてました。 「ここの Tips のほとんど正規表現ソリューションじゃん！」とか驚愕しつ、正規表現のパワーに魅せられた私は、「それ正規表現じゃなくてもできるよ」ということを、無理矢理正規表現で実現しようとしたりする、今にして考えると、とてもひねくれた育ち方をした時代がありました。 大崎さん

こんにちは。PostgreSQL をよく使っている id:sfujiwara (@fujiwara) です。 世間では MySQL のほうが PostgreSQL より人気のようですね (特に Web 業界では)。なので、DBIx な便利なモジュールも開発当初は MySQL と SQLite でしか動かなかったりして悲しい思いをすることがあり、こちゃこちゃ patch を書いたりしておりました。 そこで溜まったいくつかの Tips をここで公開したいと思います。 1. auto increment の扱い まず、いわゆる自動発番なカラムの扱いについて。MySQL ではカラム定義で AUTO_INCREMENT 指定、SQLite では最初のカラムの型を INTEGER にして PRIMARY KEY 指定、でできるやつですね。PostgreSQL では SERIAL 型を使用して定義します

こんにちは、MHP3を買ったものの諸般の事情でキャラ作っただけのkanです。来年になったら誰か狩りに行きませんか。 さて、Acme::MorningMusumeというモジュールをご存知でしょうか? モーニング娘。のメンバー情報を細かに取得できる素晴らしく実用的なAcmeモジュールです。いわゆるプロフィールはもちろんのこと、Googleの画像検索等を利用してイメージまで引っ張ってくることが出来ます。 今日紹介するのは、このモジュールに影響を受けて制作した拙作「Acme::PrettyCure」です。 my @precure = Acme::PrettyCure->now; 上記のように実行すると、現在放映中の「ハートキャッチプリキュア」のメンバーオブジェクトを取得することが出来ます。各プリキュアの情報はAcme::MorningMusumeと比べると簡単なものしか取得できませんが、プリキュア

こんにちは、cho45です。 今回この advent calendar に拙作 Text-Xatena が使われたということで、ちょいと Xatena フォーマットの話でも書こうと思います。 Text::Xatena の位置づけ みなさんご存知かもしれませんが、既に CPAN には Text::Hatena というモジュールがあります。ではなぜ今また、似たようなフォーマットの別のモジュールを書く必要があったのでしょうか。これには以下のような理由があります。 Text::Hatena は実のところあまり Hatena::Diary と互換がない Text::Hatena は非常に遅い Text::Hatena ははてなに依存した記法がいくつか存在する (id 記法など) これらのことを解決するために、Text::Xatena は作られました。 Text::Xatena はブロックレベルの互換

こんにちは。[/articles/advent-calendar/2010/casual/3:title=casual track 3日目]でも書かせていただきました、sugyanです。記号プログラミングはPerlくらいしかわからない素人ですが頑張って書いてみようと思います。よろしくおねがいします。 今日はPerlで記号プログラミングをするための基礎知識を説明します。Acme::EyeDropsでも使われているテクニックです。 ■Step1. アルファベットの変換 記号だけでPerlプログラムを書きたい！ というとき、最も邪魔なのがアルファベットですね。まずはこれらをどうにかして記号だけで表現しましょう。 Perlの文字列は2つの文字列の論理演算で表現することができます。例えば 'A' という文字はASCIIコード0x41ですね。これをASCIIコード0x60の '`' と0x21の '!

ベストスピーカー賞をもらった tokuhirom です。 1981忘年会でのみすぎて、二日酔いが大変ひどいです。 さて、今回は裏をかいて、DBIx::Inspector の話をかこうかおもいます。最近わたくしは、Web エンジニアの7つのはしかのうちの一つである O/R Mapper を書いてます。 これは、高速で、ミニマリスティックで、安定していて、DBI をリスペクトしていて、みたいな、そんなのをめざしてます。 O/R Mapper かく人って、O/R Mapper をかくときに必要なものとかを、まるっと同梱したがりがちなんですね。 そういうつくりにしてしまうと、別個なかんじの O/R Mapper をかこうとしたときに、つかいまわしがきかなくていっぱいコピペしなくちゃいけないです。 それかなしいよねってことで、みんなが共通につかえるパーツをちょっとずつかいてみようかな、とおもってます

こんにちわ。Perl はあまり得意ではありませんが Vim はある程度使いこなせる、Zimbu兄さんこと mattn です。口癖は「カッコつけんなよ」です。 さて、最近の Vim 界は Unite というプラグインが流行り出しています。 Unite がどんな物かについての説明文は、手前味噌ですが私のサイトをご覧頂けるとなんとなく分かるかと思います。「unite.vim」でググると幾らかヒットするかと思います。本来は何かしらを選択させるUIライブラリの一種となります。 さて、今日はこの unite.vim と Perl を使って音楽プレーヤを作ります。 音楽プレーヤと言っても音楽ファイルのフォーマットやらなんやらを Perl でやるという訳ではありません。 メディアプレーヤの「rhythmbox」を使います。他のメディアプレーヤでも良かったのですが DBusというインタフェースにより外部から

今回は、オススメしないperlの実行方法を紹介します。 みなさんは、wsfをご存知でしょうか？ Windows スクリプト (*.wsf) ファイルは、XML (Extensible Markup Language) コードを含むテキスト ドキュメントです。Windows スクリプト ファイルでは、スクリプトの柔軟性を向上するいくつかの機能がサポートされています。Windows スクリプト ファイルはエンジンに依存しないので、Windows スクリプト互換の任意のスクリプト エンジンで作成したスクリプトを Windows スクリプト ファイルに含めることができます。Windows スクリプト ファイルは、一種のコンテナとして機能します。 http://msdn.microsoft.com/ja-jp/library/cc392507.aspx だそうなので、さっそくperlをスクリプト エ

この考え方が本当に正しいかを確かめるために、UnicodeのコードポイントがU+00E8である「è」という文字を使って試してみましょう。 use strict; use warnings; use utf8; use Encode qw/is_utf8 encode_utf8/; sub disp_hex($) { use bytes; join ' ', map {sprintf '0x%X', ord($_)} split //, $_[0]; } my $utf8flagged = 'è'; # 内部表現がUTF-8の「è」 my $latin1 = "\x{00E8}"; # 内部表現がLatin-1の「è」 for ($utf8flagged, $latin1) { print "Dump: ", disp_hex($_), "\n"; print "UTF-8 flag: ",