ちょっと、えーーと思わせるような建物だけど、中は綺麗でくつろぎの空間。ジャズとかかかっていて小洒落系。

魚河岸三代目とかの漫画セレクションもなかなか。

野菜のみのカレーを注文

香辛料のきかせかたがなかなか。トマトの酸味とかも丁度良くて美味かった。よく効いてたのがカルダモンかなぁ、なんかそんな感じの爽やか系香辛料がよかった。

あーナタラジのサブジを食べてみたいなぁと思いつつ機会に恵まれないな。

radioheadの新譜が出ると聞けば早速予約。

last.fmの自分のアルバムチャート

use XML::Simple;
use LWP::Simple;
use XXX;

my $uri = 'http://ws.audioscrobbler.com/1.0/user/kzfm/topalbums.xml?type=3month';

my $response = LWP::Simple::get($uri);
if ($response){
  my $xml = XML::Simple->new->XMLin($response);
  XXX $xml;
}

With Voices
Ammoncontact
Ninja Tune / ￥ 2,744 (2006-05-22)
通常3～5週間以内に発送

Bricolage
Amon Tobin
Ninja Tune / ￥ 1,919 (1997-06-03)
通常6～8日以内に発送

Enemy of the Enemy
Asian Dub Foundation
EMI / ￥ 3,722 (2004-05-25)
通常7～9日以内に発送

HIGHVISION
スーパーカー
KRE / ￥ 3,059 (2002-04-24)
通常24時間以内に発送

CLOSER
MONDO GROSSO
フォーライフミュージックエンタテインメント / ￥ 3,059 (1997-08-21)

血圧高すぎでここ一ヶ月以上お酒を控えていたのだが、秋上がりとかひやおろしとか聞くとそわそわしてしまいますな。

まぁ、週末ちょっとぐらいなめるくらいならいいだろうという勝手な解釈により、酒のいわせに寄って相模灘の吟醸を購入。しかもかわいく四合瓶。

さて、家に帰って飲んでみると、ふわっと気持ちの良いメロンのような香りと、まろやかな味わい。酸味もきつくなくていまどきの酒といった感じ。協会9号系の酵母を使っているようですな。

國香と飲み比べてみたいなと思った。HD-1だよな、、、確か。

最近急に寒くなってきたのでそろそろ燗つけてもいいかもしれないなぁ。

gオプションをつけておけばposという組み込み関数が使える

pirl @> $text = "abcde"
"abcde"

pirl @>  pos($text) if $text =~ /c/
undef

pirl @>  pos($text) if $text =~ /c/g
3

といまさらながら知った。

括弧を使う

日本語 perl texinfo - split

PATTERN が括弧を含んでいる場合、 delimiter 中でマッチする文字列からさらに配列要素が作り出される。

• 仙庭 - 「モテようとしてTaverna使っている男がいたんですよ～」
• 小野 - 「な～にぃ～?やっちまったな!!」
• 仙庭 - 「男は黙って」
• 小野 - 「シェルスクリプト！」
• 仙庭 - 「男は黙って」
• 小野 - 「シェルスクリプト！」
• 仙庭 - 「何時の時代だよ～」
• 小野 - 「次！」

今週は仕事がやたらと忙しかったり、送別だ歓迎だと飲みが重なったので思うように読みすすめられなかったが、７章はページ数が少ないのでなんとか読み終えた。

perlで高階関数をどうやるかって章。　

クロージャを使ってカリー化するんだがそれだと関数っぽく呼べないのでglobを使う。というようなテクニカルな部分に関して解説。プロトタイプ宣言の部分とか良くわからなかったが、中盤以降あまり興味が持てなかったのでちゃんと読んでないような。

ちなみに、perlでカリー化するモジュールはSub::Curryってのがあります。

http://www.kzfmix.com/blosxom_archive/Computer/Linux/fpython060914.html

FFTは買う

ファイナルファンタジー タクティクス A2 封穴のグリモア

スクウェア・エニックス / ￥ 5,040 ()
近日発売　予約可

とかいってFFTAは最後のあたりでとまっているが、、、、

久しぶりにやってみようか。

型グロブで悩むの巻

*a = sub {1+2}

が$a->()でなくて

a() # 3

なのがいまいちわからない。

$ perlsh
main[82]$ $a = 5
5
main[83]$ $b = \$a
SCALAR(0x984e018)
main[84]$ *a
*main::a
main[85]$ *a{SCALAR}
SCALAR(0x984e018)
main[86]$ ${*a{SCALAR}}
5
main[87]$ $$b
5

ということは $b = \$a = *a{SCALAR}だからリファレンスベースで考えていけばいいのかな、、、、

$ $a = [1,2,3,4]
ARRAY(0x984e048)
main[89]$ @$a
1
2
3
4
main[90]$ *b = $a
*main::b
main[91]$ @b
1
2
3
4

とこんな感じ。

実用Perlプログラミングにグロブはハッシュを使って実装されてると書いてある。

実用Perlプログラミング
サイモン カズンズ
オライリージャパン / ￥ 3,360 (2006-03)
通常24時間以内に発送

main[92]$ $a = [1,2,3]
ARRAY(0x9989060)
main[93]$ $b = {a => 3}
HASH(0x99890c0)
main[94]$ *c = $a
*main::c
main[95]$ *c = $b
*main::c
main[96]$ @c
1
2
3
main[97]$ %c
a
3

なんかrefの型にマッチさせてハッシュっぽくしてる感じだ。

でもまだちゃんと掴みきってないナァ。あと第2版は1章に小難しい話題を入れてる割にはページが少ないのでちょっとアレ。実用Perlプログラミング的には一章100pぐらいあって充実されてるほうが嬉しい。