「はじけるやさい!!　ピチピチくだもの!!　八百吉」。
キャッチコピーが素敵な八百屋さんです。

ブログ合宿二日目の夜は8人で待庵という蕎麦居酒屋へ行きました。

千鳥町　待庵（チドリチョウタイアン）
http://www.tsuiteru.com/gr/tai-an/
場所：大田区千鳥2-21-4

夕食の店をさがしてうろうろしていた末に見つけたお店ですが、
これが大当たり。おそばがおいしい上、他の料理も良いです。
しかも、リーズナブル。より詳細はネタフルでどうぞ。

- [N] おそば「待庵（たいあん）」（千鳥町）
  http://netafull.net/eat/025270.html






（撮影はケータイで）

シンプルすぎるCMS、「ebicoma」を公開しました。
コメント欄もトラックバックもいらないから簡単に扱えるCMSが欲しい、
ということでいろいろ調べていたのですが、
結局自作することで落ち着きました。
ドキュメントなどをまとめたので、ブログ合宿の成果として公開します。
よろしくお願いします。

どういうものなのかは、こちらの README をご覧ください。
http://coderepos.org/share/browser/lang/perl/misc/ebicoma/README

こちらにソース一式の tarball を置いておきますのでよかったら
お試しください。
http://chalow.net/misc/ebicoma-1.0.tar.gz

また、coderepos でも入手できます。
- /lang/perl/misc/ebicoma - CodeRepos::Share - Trac
  http://coderepos.org/share/browser/lang/perl/misc/ebicoma

ebicoma は HTML::Template を採用しています。
時流に乗って Template-Toolkit に切り替えようかなと思ったのですが、
今のでそれほど困らないのでこのまま行きます。

なお、「ライフをハック」(http://lifehacks.ta2o.net/)
[2008-02-17-5]は ebicoma で運用しているサイトの一つです。

とある経緯で、Yahoo!日本語形態素解析API[2007-06-18-1]を使った
Perl のサンプルプログラムを作りました。
車輪の再発明的ですが（だれか作ってた気がする）気にしない！

- Yahoo!デベロッパーネットワーク - テキスト解析 - 日本語形態素解析
  http://developer.yahoo.co.jp/jlp/MAService/V1/parse.html

以下コードです：

#!/usr/bin/perl
use strict;
use warnings;
use Encode;
use URI::Escape;
use LWP::Simple;
use XML::Simple;
use Getopt::Long;
use utf8;
use open ':utf8';
binmode STDIN, ":utf8";
binmode STDOUT, ":utf8";

my $appid = "YahooDemo";

my %opt = ();
GetOptions(\%opt, "results=s", "response=s", "filter=s",
           "ma_response=s", "ma_filter=s",
           "uniq_response=s", "uniq_filter=s",
           "uniq_by_baseform=s");

my $param_results = $opt{'results'} || "ma";
my $param_response = $opt{'response'} || "surface,pos";
my $param_filter = $opt{'filter'} || "";
my $param_ma_response = $opt{'ma_response'} || "";
my $param_ma_filter = $opt{'ma_filter'} || "";
my $param_uniq_response = $opt{'uniq_response'} || "";
my $param_uniq_filter = $opt{'uniq_filter'} || "";
my $param_uniq_by_baseform = $opt{'uniq_by_baseform'} || "";

while (<>) {
    chomp;
    my $xml_ref = webma($_);
    foreach my $v ("ma_result", "uniq_result") {
        next unless $xml_ref->{$v};
        foreach my $i (@{$xml_ref->{$v}->{word_list}->{word}}) {
            print join("\t", map {$i->{$_}} keys %$i), "\n";
        }
    }
}

sub webma {
    my ($key) = @_;
    return {} unless $key;
    my $url = "http://api.jlp.yahoo.co.jp/MAService/V1/parse"
        ."?appid=$appid"
        ."&results=$param_results"
        ."&response=$param_response"
        ."&filter=$param_filter"
        ."&ma_response=$param_ma_response"
        ."&ma_filter=$param_ma_filter"
        ."&uniq_response=$param_uniq_response"
        ."&uniq_filter=$param_uniq_filter"
        ."&uniq_by_baseform=$param_uniq_by_baseform"
        ."&sentence=".URI::Escape::uri_escape_utf8($key);
    my $response = get($url);
    my $xmlsimple = XML::Simple->new(ForceArray => [ 'word' ]);
    return $xmlsimple->XMLin($response);
}

実行例：

% cat a.txt          
これは六本木の赤いペンです。
% ./yapima.pl --response=surface,pos,reading < a.txt 
これ    名詞    これ
は      助詞    は
六本木  名詞    ろっぽんぎ
の      助詞    の
赤い    形容詞  あかい
ペン    名詞    ぺん
です    助動詞  です
。      特殊    。

文字コードは入力も出力も UTF-8 です。
文字化けする場合は「binmode STDOUT, ":utf8";」を削って
お試しください。

ちょっと前にヲハニュースでメモったのをここで改めて手順を解説。
詳細は下記のヲハニュース記事でどうぞ：

- E-Mobileを使って複数台のマシンにインターネット環境を設定する方法
  http://d.hatena.ne.jp/yto/20080221/p4

構成図です：


MacBook (tiger) での設定です：

(1) イーモバイルを接続する。
(2) システム環境設定　＝＞　共有（インターネットとネットワーク）
(3) 「インターネット」タブ。
(4) 「共有する接続経路」で HUAWEI Mobile を選択。
(5) 「相手のコンピュータが使用するポート」で AirMac を選択。
(6) 「開始」！！！



パスワードの設定は「AirMac オプション」で。
私は短期間の場合はパスワードなしでささっとやってます。