雨模様の日曜日だ。とりあえず選挙にいく。選挙はともかく、場所がスグお隣の小学校。手洗いに並ぶ水道の蛇口位置が低かったり、案内板がかわいかったり、階段が緩かったり、懐かしい風景のまったり空気感。ヨメが気づいたんだけど、6年生はクラスの数が２つで１クラス20人いない。少子高齢化なのか、都内の小学生なのに、まるで過疎の村のよう、だよなあ。ちょっとびっくりした。

FED2 Industar-26M CENTURIA200

昨日のアメリカ大使館宿舎祭り。

アメリカ大使館宿舎に朝からぼーっとでかけてみた。語彙が貧弱で申し訳ない。

スゲー行列でびっくりした。

11時過ぎについて、入場したのは12時過ぎ。でも、中に入ったら、そこは極楽でありました。

ビール各種、ソフトドリンクは無料で飲み放題。ホットドッグや、バーベキュー、たこ焼きなどがずらり並ぶアメリカ屋台村だ。陸軍音楽隊のパレードや、セサミストリートショーなどもあってそのたびに歓声があがる。陽気な空間。笑顔炸裂。楽しいオーラ溢れる場所で、ゲラゲラ笑ってるひとを見ては、笑いが伝染ってしまう。叩きつけられるような炎天下じゃなければ、もっとダラダラ長居したかったかも。かなり楽しかったゾ。

ウチに帰る途中、日比谷ビックカメラに寄ってトラックボール購入、北千住東急ハンズに寄ってペンホルダー購入。

前々から欲しかったのがモレスキンにつけるペンホルダー。ちょうどいいのがなかなか見つからなかったんだけど、ミドリカンパニーのペンホルダーＭというのを試しに買ってみたらぴったり、イメージどおり。

PilotのHi-TEC-C colete 4色バージョンを差し込んで使えるナイスなペンホルダーだ（直径12mmまで差し込める）

前々から欲しかったのがトラックボール。今まで使ってたDELLのマウスはどうも感度がよろしくなくてちょっとストレス。マウスを変えたいなぁ、と思ってたんだけど、あまり場所も取れないんでトラックボールがよかろう、と。ロジクールのこいつがまた使い勝手がよくて正解だったかも。

しかし、今日は暑かったなあ。

ふと思いついて、今日はウチでたこ焼き。うまく作れるのか、不安をかかえつつ、とりあえず不恰好でも食えるシロモノにできあがる。ヨメとふたりでふーふーいいながら食い、ふたりともタコ焼きで満腹になった。タコが美味いし、小エビ、揚げ玉、紅しょうがとの相性も抜群で、たこ焼きを考えたひとはエライ、としみじみつくづく。いや、本当に美味かった。こういうのもシアワセというのかもしれんなあ。

FED2 Industar-26M CENTURIA 200

土曜に行った麻布十番納涼祭り。街全体が祭りで舞い上がっている中、ひっそり営業中の喫茶店だかレストランだか。天井が低くて年代モノの建物だった。六本木なんてのが近いせいで、バブリーでチャラいイメージがあったけど、麻布十番そのものは古い街、らしい。

ここんとこ聞いてるのは。

フライングキッズとか宮尾すすむと日本の社長とかマルコシアスバンプとかジッタリンジンとか、ついでにたまとか。

この頃って、ユニコーンとか、爆風スランプとか、ブルーハーツとかバンドブームだったんだっけか。

関係ないけど

アカギのオープニングが古井戸のなんとかなれ、には驚いた

朝から毎月定例の内科。今日は採血されて結果は来月。

帰ってから、ちょっとperl。

毎週ルーチンで、60個前後のエクセルファイルを開いてcsvに保存する、という実に馬鹿馬鹿しい低脳作業がある。こんなもの人間のやる仕事じゃない。腐れエクセルには１mmも触りたくない。

複数人が並行で入力しているんだけど、さいわい、シートの名前に規則性があるんで、以前ちらっとここで触れたDBD::Excelを、本稼動させてみた。

ディレクトリにあるxlsファイルを開いて、特定のシートをｃｓｖに吐き出す

#!/usr/local/bin/perl

use strict；

use Encode；

use utf8；

binmode OUT=>’:cp932’；

use Spreadsheet::ParseExcel；

use Spreadsheet::ParseExcel::FmtJapan；

my $oFmtJ = Spreadsheet::ParseExcel::FmtJapan->new(Code =>’cp932’)；

my $sheet = shift(@ARGV)；

my $orig_dir = ’xls/’；

foreach my $d ( @{ $section_dir } ){

opendir(DIR， $orig_dir) || die；

my @files = grep(/.xls/， readdir(DIR))；

closedir(DIR)；

foreach (@files){

my $xls = $orig_dir . $_；

my $oBook =

Spreadsheet::ParseExcel::Workbook->Parse( $xls， $oFmtJ)；

my $ws； my $wc；

for(my $i = 0； $i < $oBook->{SheetCount}； $i++){

$ws = $oBook->{Worksheet}[$i]；

if( $ws->{Name} =~ m!$sheet! ){

printf qq{XLS:%s Sheet:%sn}， $xls， $ws->{Name}；

for(my $r = $ws->{MinRow}； $r <= $ws->{MaxRow}； $r++ ){

my @buf；

for(my $c = $ws->{MinCol}； $c <= $ws->{MaxCol}； $c++ ){

$wc = $ws->{Cells}[$r][$c]；

my $value = $wc ? $wc->Value : ’’； $value =~ s/，//g；

push(@buf， $value )；

}

print join(’，’， @buf)， "n" if @buf；

}

}

}

}

}

これだけ。

今日は、ヨメと昼前には麻布十番納涼祭りに出かける予定だったので、時間がないかな、と思ってたのに、20分もかからずスクリプト完成。あとは現物合わせな例外処理だの作りこめば実戦投入できる。

いやもう、ほんと便利で、DBD:Excelの作者には大感謝！糞エクセルからまた一歩離れることができたゼ。ざまみろ。って、休みに仕事なんぞしてちゃいかんだろ、おれ。

大盛況おお賑わい大混雑の麻布十番納涼祭り。今年こそは国際バザールでちゃんと食おうと、開店前に並ぶ気合。ヨメはドイツ、わたしはブラジルに並び、フランクとシュラスコをがっつり食う。比較的すいていたラオスでおじいさんとおばあさんが上げていたスパイシーチキンまで堪能できた。ちなみに、3時開店のときにはもう行列となっていた。どれも美味でありました。大満足。

その後麻布十番側にいって、うろつく。オリオンビールとか赤ワインとか純米酒とか、馬肉ソーセージとか。しかし、今日の暑さ、人ごみにバテバテ。面白かったんだけど、ちょっと余裕がなかった、かも。

あとは、部屋でのたのた転がるかしらん。