明日は日記才人のバグフィックスをしよう。

自分で書いておいてなんだが、Xangoは難しいのか難しくないのかよくわからん。今回PlaggerのXangoプラグインを書いたわけだが、これがよくみるとこれだけの行数でかけるならエレガントだなぁ、とか自画自賛してしまったわけだ。

やっぱドキュメントかな・・・

今日はちょっとバグを探せる感じの日じゃないので、明日やろう、というメモ。（でも実はもう出来上がってるような気がする）

おいらの状態をみかねた人たちが俺を無理矢理病院に拉致ることに。すまんねぇ。で、もらって以来一回も使ってないどころか一回もまともにみたことないの保険証を探す。あった。あったが、去年の９月で切れている・・・えー、そのあとなにももらってないと思うんだけどなぁ・・・。ついでに現金発見・・・ドルだけど。でもこんなにあったのか、という量。銀行にさえいければ多少の金が入るわ。

ありえないくらいの寒気でガクガクブルブル。・・・つら・・・

午前２時ごろに気がつく。いつのまにか眠っていたらしい。恐ろしい発汗。だらだらと汗がでてくる。水でも浴びたかのような感じ。

これから常時ハイキング仲間募集モードに入ろうかと思っております。

「駅からハイキング」に行きたいのですが、絶対に一人で行きたくない。さらに言えばバリバリ本気でハイキングじゃなくてゆるーーーーい気持ちでハイキングに行きたいのです。土曜日に日帰りみたいな感じで、10km~15kmくらい歩きたいのですよ。

行きたい人がいたらおしえてー。

わからんわー。

「Xangoがデフォルトの状態でrobots.txtをハンドルできるといいのにー」って結構聞く。俺もその期待には応えたいとは思うのだけどこれが実はなかなか難しい。なんでかというと、robots.txtの処理は意外と難しいから（笑）

というのも、パースしたりなんだりはいいのだけど、大量のrobots.txtデータを保存しつつ、高速で適用するというのが結構知恵がいる上にアプリケーションのコンテキストによって大分処理が違うのですな。某サービスの場合は実はrobots.txtの処理は全てデータベース上で行っている。Perlでやってるとメモリ食うし、遅いんだもん。

でもじゃあそれを一般化できるかというと、少なくとも俺のやってるやりかたではできない。っていうか、PostgreSQLのストアドプロシージャをガリガリガリガリ使っているからなんだなー。同じロジックをSQLiteでやれと言われてもできん・・・

ちなみにLWPに入ってるWWW::RobotRulesはとても参考になるが、あれはメモリを食いまくる。WWW::RobotRules::AnyDBM_Fileはメモリを食わないが、どちらにしろ取得してきたrobots.txtをリニアースキャンするので使えない。１００万件あったら、それをリニアースキャンするんですよ、奥さん！

ってことで難しい。何か一般化できるいいアイデアはないもんかね。

いやー、自分で書いてて思ったけど、Xangoって難しいな（笑）もっと簡単にするよ・・・

自転車出勤→区役所→社会保険庁→事務所。事務所にようやくついたと思ったら携帯電話がつかない。この間から変だったんだけど、今日はもううんともすんとも言わない。しょうがないのでまたDoCoMoに行って修理。でも同じ症状で持って行くの２回目だったから今度は機体を交換してくれた。その足で赤坂で打ち合わせ。現在財政が辛いのでこの仕事はゲッツ。

事務所に戻ろうかと思ったのだけど、充電器を家に忘れてたので今日は自宅作業に決定。さ、コード書くぞ。

この間入札したPower PC、無事落札。その間、そんなに必要なわけでもなかったんだけどPower Bookまで落札してしまった・・・やべ。絶対に誰か俺より高額で入札すると思ったのに。

wafu宛てのメールが全然届かない。管理人の方にも何回も電話をかけてみたが音信不通・・・メールは多分俺へのメールが届かないのと同じ理由で届いてないだろうし。

というわけで皆さん、今wafuアドレスは全然使えてません。他の方法で連絡をくだされば他のメールアドレスをおしえまーす。

（追記：復活しました！）

さすがbrian、PDF初心者って自分で言ってるのにPDF::API2を使いこなしてる。俺はちなみに挫折しました。

http://www.perlmonks.org/index.pl?node_id=531667

PDFを簡単に作れるようになるといいよねぇ。

日本語の読みを一瞬で抽出：

  use Mecab;

  my $string = "....";

  my $m = Mecab::Tagger->new;

  for (my $n = $m->parseToNode($string); $n; $n = $n->{next}) {

     next unless $n->{surface};

     my $y = (split(/,/, $n->{feature}))[7];

     $yomi .= $y ? $y : $n->{surface};

  }

  print $yomi, "\n";

しかも速っ！惜しむらくはインターフェース的にIteratorにしてくれるといいなぁ、という感じ。

「とくダネ！」に出てた民主党議員の「X-Senderがでてないのは堀江さんがいつも使っているサーバーを使ってなかったからじゃないの？」という言い訳なんですが。個人的にどういう条件下でX-Senderがつくのはわからないのだけど、「Eudoraが・・・」とパッケージを出してきてるところで「サーバー」「サーバー」と繰り返す事によってさらに無知をさらけ出してる。

永田議員というのもどうも折り紙付きの人らしいけど、それにしてもあの無知さよ。この国を動かしている人達は今の世界を動かしている技術にとことん無知なんだなぁ。まともな事業じゃなくて電子詐欺師でも目指すか？

事務所用のコンピューターをオークションで手に入れようと思ってたら競り負けた・・・

http://ameblo.jp/warota/entry-10009238461.html

「早く点棒出したらどうなんですか」がなんか妙にツボ。

というわけでシャンパン一杯ずつとケーキでお祝い。どこのセレブだ。