27112008 network
今、僕の中でグラフブームが来てます。というわけで、バラバシ。
26112008 chemoinformatics
26112008 perl
Hyper Estraier インストール（３） オリジナル検索エンジンの作成によるとややこしいことしなくてもクローラーとP2Pって連携できる。ちゃんと読んだらクローラガイドにも書いてあった。
というわけでP2Pの設定をしてテストしてみた
新ネットワーク思考―世界のしくみを読み解く
薬づくりの真実use Lingua::JA::TFIDF;
use Search::Estraier;
my $text = q(
* 長い労働時間がより多くの成果を生み出す訳ではない。むしろ仕事と生活をうまくブレンドしたほうが生産性が上がる
* 仕事人間は過度に会社に期待している、会社も期待しているだろうという思い込む
* 生きること(living)と存在していること(existing)は違う
* 働きかたを選べるようになるためには、まず自分のスキルを磨く
* 少子高齢化で人口減少の社会では終身雇用は機能しない
* 効率の良い働きかたの延長線上に豊かな発想は生み出されない、生活にゆとりがないとあたらしいアイデアはうかばない
* 非正規労働者が増えると技能の継承ができないという危機感を抱くひとが増えてくる
o これは経験した
* 現在求められている成果量は長時間残業を前提として決められている
* 時間、人生、自分自身についてのパラダイムがこの問題をつくりだしているのではないだろうか(p.224)
* 足るを知る(Enough is enough)
);
my $calc = Lingua::JA::TFIDF->new;
my $result = $calc->tfidf($text);
my $query_keywords = "[SIMILAR] ";
for (@{$result->list(5)}) {
my($key,$val) = each(%$_);
$query_keywords .= "WITH " . int($val) . " $key ";
}
warn $query_keywords;
my $node = new Search::Estraier::Node(
url => 'http://localhost:1978/node/drkcore',
croak_on_error => 1,
);
# create condition
my $cond = new Search::Estraier::Condition;
# set search phrase
$cond->set_phrase($query_keywords);
my $nres = $node->search($cond, 0);
if (defined($nres)) {
print "Got ", $nres->hits, " results\n";
for my $i ( 0 ... $nres->doc_num - 1 ) {
my $rdoc = $nres->get_doc($i);
if( $rdoc->attr('@uri') =~ /entry/) {
print "URI: ", $rdoc->attr('@uri'),"\n";
print "Title: ", $rdoc->attr('@title'),"\n";
}
}
} else {
die "error: ", $node->status,"\n";
}
実行結果
% perl test.pl
[SIMILAR] WITH 11 働き WITH 10 労働 WITH 8 成果 WITH 8 延長線 WITH 7 少子 at test.pl line 30.
Got 15 results
URI: http://blog.kzfmix.com/entry/1227393133
Title: 「ワークライフシナジー」読んだ
URI: http://blog.kzfmix.com/entry/1222936959
Title: 「発想の道具箱」と「ハイスピード仕事術」
URI: http://blog.kzfmix.com/entry/1226787565
Title: 「革新的ソフトウェア企業の作り方」を読んだ
URI: http://blog.kzfmix.com/entry/1221714188
Title: 系として壊れてきている?
URI: http://blog.kzfmix.com/entry/1221057705
Title: Maybeお仕事モナド
URI: http://blog.kzfmix.com/entry/1226148131
Title: 「あたらしい戦略の教科書」読んだ
あとはモデルに組み込めばOKな感じ。
25112008 life
今日読んだ本。ユキが風邪をひいてぐったりしているので膝の上でゴロゴロさせながら読書。
入門Iのほうが面白かった。実践編はいまいちだった。
あと、陶芸も少し知識を突っ込む。そのほうが焼物市なんかでより楽しめるでしょう。
子供がもう少し大きくなったら陶芸でも始めたいところ。
読み流した感じ。
Firefox 3 Hacks Mozillaテクノロジ徹底活用テクニック僕の理解力では何が地方発信型なのかわからなかった。書いてあることが当たり前すぎて、あまり参考になるところはなかった。色々と考えた結果、地方のあまりそういうこと知らない人達にむけてのセミナー内容としてはウケるのではなかろうか？という結論に至った。
感想としては星二つの人達といっしょだなぁ。
こんな感じで過去に書いた類似のエントリ出すようにしたい。
TF-IDFで特徴語を抜き出す。
コトラー教授『マーケティング・マネジメント』入門〈2〉実践編 (ビジネスバイブル)
陶芸の教科書 (趣味をイチからはじめたい!大人のための教科書シリーズ)
地元にいながら都会に負けない、地方発信型ビジネスモデルの作り方my $calc = Lingua::JA::TFIDF->new;
my $result = $calc->tfidf($text);
my $query_keywords = "[SIMILAR] ";
for (@{$result->list(5)}) {
my($key,$val) = each(%$_);
$query_keywords .= "WITH " . int($val) . " $key ";
}
とやってクエリをモデルのほうに渡せばOKっぽいんだけど、Hyper EstraierのほうをP2Pで動かしてないんだったヨ。
イントラでクローラはしらせているのでじゃぁperlバインディングからでもと思ったが、ちゃんと入ってないっぽくてこけてる。
そのうちP2P対応させようということで、途中までのメモ。
24112008 life
ここのところ台所に立つことが増えているが、現状あるものを工夫して何かを作るというプロセスが気に入っている。そんなこんなで、豚汁にニョッキを入れるのはどうかと。じゃがいももちだってあるんだから美味しく出来そうな気がしたので作ってみることにした。
IKEAかどっかで購入したプラスティックのナイフで娘がお手伝い。親子で楽しめるのでなかなか楽しいという副産物も。
切ったら、小麦粉をすこしまぶしておいて、熱湯で茹でる。茹であがりは浮いてくるのですぐわかる。
いつもはゴルゴンゾーラなんかで和えるところを、予め作っておいた豚汁に入れる。
なかなか旨かった。
23112008 sake
普段は燗つけて食中酒という飲み方が多いのだけど、二人目の子供が生まれてからは、食中酒が減って、長女が寝てから飲み始めるようになったので、香りの良いお酒をセレクトすることが増えた。
というわけで、リーデルの日本酒用グラスが欲しくなってしまい一つ買った。香りの良い静岡酵母の吟醸酒でもと、開運の純米吟醸18BYを。
グラスで飲む吟醸酒もなかなか。
23112008 wiki
FSWikiに関する本
職場のWikiはFSWikiを使ってる。perlで書かれているので手を入れやすいのと、pdfで出力できるのがよい。pluguinは化学構造を表示するプラグインとword文書(rdf)で出力するプラグインを用意してつかっている。
僕の場合、ソースコード読みまくった後で、この本を読んだのであまり得るものはなかったが、Wikiとか知らないヒトにはこれ読んどけって渡す本としてはちょうどいい。
FSWikiを職場に導入する上でもう少し考えないなぁと思うところは
基本のイタリアン (オレンジページブックス―とりあえずこの料理さえ作れれば)
リーデル (RIEDEL) リーデル・オー 大吟醸 414/22
入門Wiki―みんなで投稿/編集できるWebの作りかた