Ruby界では注目を集めてきた割に、Dave Astels が 2005 年に提唱した「A NEW LOOK AT TEST-DRIVEN DEVELOPMENT (日本語訳)」(原文pdf)による Behavior Driven Development (略して BDD)は、Perl 界ではスルーされているような気がしてなりません。 ことの本質はテストを何のために書くのかという姿勢にあり、ツールは従来のテストでも良いという割り切った感覚が Perl 使いにはあるからなのかもしれません。現実に、Ruby の BDD フレームワークの RSpec 熱い紹介記事にも、身も蓋もなく、そのように書いてあります。 ⇒ Rubyist Magazine - スはスペックのス 【第 1 回】 RSpec の概要と、RSpec on Rails (モデル編) かくたに、もろはし著 FAQ:「RSpec っ

はてなダイアリー AtomPub API 公開おめでとうございます。 Atom API と言えば、ID をどうするかが工夫のしどころです。例えば、How to make a good ID in Atom [dive into mark] では、パーマリンクの http URI を元に、エントリーの日付を追加した tag URI (RFC4151) を使うことを提唱しています。では、はてなは、どのような URI にしたのでしょうか? API 説明ページから該当する部分を探すと、「日記エントリーの投稿」のセクションに例が記載されていました。 ⇒ はてなダイアリーAtomPubとは - はてなダイアリー <id>tag:d.hatena.ne.jp,2008:diary-はてなID-20080101-XXXXXXXXXX</id> 先行して Atom API が公開されていたフォトライフの A

昨日は、デイリーポータルZのアーカイブリストのページからエントリを抽出するときに XPath を使いました。ですが、../../p の部分がダサイので、CSS セレクタを使う方法を考えてみました。 変更箇所は $entries の定義部分だけです。 my $entries = scraper { use utf8; #process q{//td/p/font[text() =~ /べつやく/]/../../p}, # 'entries[]' => $entry; process 'td>p', 'entries[]' => sub { my $h = $entry->scrape($_); ($h->{author} ||= '') =~ /べつやく/ ? $h : (); }; result 'entries'; }; コメントアウトした XPath 版 process では、テキスト

Web::Scraper はいたれりつくせりの仕掛けが仕込んであって、便利ですね。私が、割と良く使っている機能は以下 2 つです。 process の第一引数に、CSS セレクタだけでなく、XPath も指定できます。ただし、XPath を指定するときは先頭を必ずスラッシュ(/)で始めなければいけません。 process の第二引数以降の、値をどこから取得するかを指定する部分に、コード・リファレンスを置くこともできます。これを使うと、DOM ツリー中の値を加工して抽出することができます。 具体例として、デイリーポータルZのアーカイブ一覧の中からべつやくれいさんのエントリを抽出してみることにします。まず、アーカイブ・ページのエントリ部分を取り出してやると、こうなっています。 <TD width="580" valign="top" class="tx12px"> <P> <B><FONT c

id:naoya さんが Perl のクロージャの使い道を考えておられるようです。便上して、私が良く使う、3つのパターンを紹介してみます。なお、単なるコード・リファレンスとしての使い方は除外して付随するコンテキストが意味をもつクロージャの場合に限ります。 (2006年2月14日修正 use Fcntl のパラメータに :DEFAULT が抜けていたので追加しました。) コールバック・パターン イテレータにクロージャを渡して、イテレータの中から繰り返し呼び出してもらってコンテキストに副作用を及ぼす使い方です。クロージャの使い方の中でも最も自然に使えるものだと思います。以下、Ruby のブロック呼び出しっぽくコード・リファレンスを $yield パラメータに渡すことにします。へそ曲がりに BBS の CGI コード用に flock による排他ロックを例にしてみます。 package Mutex

これ(↓)ですけど、utf8 フラグの立った文字列に、utf8 が立っていないけど \x80-\xff を含む文字列を連結しようとすると警告が出るのだと思い込んでいました。でも、やってみたら、警告でませんね。う〜む。そういうふるまいだったのか。 ⇒ subtech - Bulknews::Subtech - Fix dodgy utf-8 bytes すでに utf-8 なバイト列を latin-1 と解釈して utf-8 に二重エンコードすることで起きる文字化け（を表現する短い言葉ってないのかな）を直すコード。 で、私はあまのじゃくなので、逆を考えてみました。つまり連結するときに、どういう decode 処理をすれば、latin-1 と utf-8 を共存させることができるのだろうかと。 まずは下調べ。decode、decode_utf8 にどういう文字列を渡すと utf8 フラグが立ち

11月16日に goto を使った強引なやりかたで、末尾再帰のループ化と継続渡しの実行をやってみたところ、コメント欄で shiro さんにトランポリンを紹介してもらいました。 ⇒ http://d.hatena.ne.jp/tociyuki/20061116/1163674424#c1163895106 shiro 『なお、ベース言語が末尾呼出し最適化を保証してくれない場合によく使う手としてトランポリンがあります。各関数を、結果を返すのではなく、その関数の継続手続きを返すように書いておきます。そして、(途中略)ひたすら返って来た継続を呼び出しつづけるドライバを書いて駆動します。 これだとベース言語のスタックを消費しません。』 随分と、あれから経った気がしますが、突然、これをやってみたくなったので試してみました。 まずは、関数コールをおこなわせるコードリファレンスをドライバに渡して、こんな風

ぶくま経由で、RFC 3986 URI の日本語訳にたどり着き、読んでいました。スムーズな日本語ですんなりと読めて、良い訳だと思いました。私は誤訳を見つけられませんでした。 それはともかく、読んでいる最中に、RFC3986 だけではないのですが、IPv4 アドレスの数字にマッチする構文が、正規表現向けでないのに改めて気になりました。RFC の記述をそのまま正規表現にすると、バックトラックをおこす書き方になっています。 バックトラックがおきないようにするには、先頭から1文字ずつ見ていくだけで残りの選択肢のどれに進めばいいか決定できるようにすればよろしい。ということで、これをテスト駆動で正規表現に向いた記述に変更してみました。 ⇒ http://www.studyinghttp.net/cgi-bin/rfc.cgi?3986#Sec3.2.2 IPv4address = dec-octet

野暮を承知の上で、hyuki さんの「結城浩のはてな日記」のコードは、それ CPAN モジュールの Christopher Boumenot / Net-Amazon-0.38 で簡単に書けるよ! でも、たぶん、hyuki さんのコードは API の説明用にあえて URL を自力で組み立ているのだと思います。 #!/usr/bin/perl use Net::Amazon; use Jcode; my $ua = Net::Amazon->new(token => 'あなたのAccessKeyId', locale => 'jp'); my $res = $ua->search(isbn => '9784798111117'); unless ($res->is_success) { print "Error: ", $res->message, "\n"; exit 1; } print

naoya さんの次の疑問点には yamaz さんが答えてくれるのが一番だと思いますが、私が元エントリ「最速配信研究会 - Web2.0とC10Kに関する数々の誤解」を読んだときに、昨年、lighttpd からコピペしつつ、libevent を使って試し書きしたサーバを思い出していました。 ⇒ naoyaグループ - naoyaの日記 - C10K おおむね同意なんだけど、ここだけちょっと。"Comet のようにクライアントからの書き込み要求は別Port、あとは大多数の..." というところをもうちょっと詳しく教えてほしい。 書き込み要求を 8081 ポートに、維持コネクションを 8082 ポートにしておいて、サーバでは、それぞれ別のソケットに listen しておき、8081 のソケットからの accept をイベントにしてレスポンスを作って、8082 のソケットで accept してお

Squeak の VM はstop-the-world非インクリメンタルな 2 世代 mark-sweep-compact GC を採用しています。以下、32 ビット版の GC についてのメモ。この GC は、実行速度を若干犠牲にしてでも、メモリーの消費を抑えるように作られていました。(9日、メソッド incrementalGC の名前とまぎらわしいので、インクリメンタルという表現を削ることにしました) memory の配置(アドレスの小さな方から大きい方向へ向けて) | old space | young space | freeBlock | forwarding block table | 新しくオブジェクトのチャンク(下記)を割り当てるときは、freeBlock の先頭から切り出します。freeBlock がチャンクのサイズに満たないときは、young space だけを対象にした

昨日の似非継続のテクニックでは、goto 先のラベルを式で指定していました。この小技を Perl Object Environment (POE) の inline_states に適用すると、セッション記述をコルーチンっぽく見せかけることができて、可読性が多少改善します。 dayflowerさんのPOE おぼえがきの例をちょっと変更したものを、コルーチンっぽい記述に変更してみましょう。 POE::Session を使うと、変数 $_[STATE] に inline_states で指定したファイバのステート名が格納されますので、ステート名をラベルにして goto にします。つまり、セッション関数の先頭に goto を配置して、POE::Kernel に処理を渡したい箇所に $_[KERNEL]->yield('stateX'); return; stateX:とワンパターンに埋め込んでい

torus solutions! さんの「なんでも継続、Perl で。」のコード例は Scheme なら確かに継続になっているのですが、Perl 5.8 までは末尾関数呼び出しを goto にしてくれないので、クロージャをスタックに積み上げる再帰呼び出しのまんまです。 (11月18日追記)この問題を小飼弾さんが「継続は力なり」で解決しようと試みていますが、この解は残念ながら leaf_count_cps_g の呼び出しがループ(もしくは goto)になっていません。そもそも scheme で 再帰版 leaf_count を継続を使って書き改める動機は「継続と関数のすべてを末尾呼び出しに書き換えることでループ化する」ことですから、Perl でもそうしてみたいのです。 それならばと goto &subroutine名 を使えないかとやってみたのですけど、思ったように動いてくれませんでした。

「はてなブックマーク - 高木浩光＠自宅の日記 - 駄目な技術文書の見分け方 その1」のコメントに、誰も、 『え〜、いまどき準備された文？「O/R マッピング・フレームワーク」のことを書かないのは、どういうつもりなわけ? O/R マッピング使わずにユニット・テスト記述するのめんどくさいじゃない。』 と突っ込んでいないのが気になりました。 ブックマークした人に Web アプリケーションのプログラマは少ない? とはいえども、アジャイル紀元前の人が書いたコードのメンテをするはめになったときのために(結構多いんだなこれが)、Google Code Search で復習してみました。 ADO ⇒ SqlCommand Parameters Add Java ⇒ PreparedStatement (setNull に type 指定しなきゃいけないのを忘れて、はまったことがあります) PHP ⇒ D