[天気:晴時々曇](広島県福山市) <睡眠:240--1040>
1
[Misc] アサー&午前chu!
んにぅー。
最初は平日とあまり変わらない時刻に目が覚めたような気がしたが、
二度寝してたら10時半過ぎに。
お昼過ぎまで朝食を摂ったり風呂に入ったりとのんべんだらーり。
午後は、郵便局で資金移転の後、
美容室へ髪を切ってもらいに行こうとしたら駐車場が満杯で入れず、
それは後回しにしてガソリンスタンドで給油の後、
啓文社コア店
へ。
@
マイリスト抽出スクリプト:
ココログ
のBooksリスト管理画面をEUCで保存してから、@niftyBOOKSアフィリエイトの
タイトル/著者/詳細ページURL/表紙サムネール画像URL
情報を抽出し、hnfのLIMG/LINKディレクティブを出力するPerlプログラムを書いてみた。
#!/usr/bin/perl
use strict;
my ($title, $author, $url, $img);
while(<>){
if(m(^<td align="center"><a href="(http://nifty\.bk1\.co\.jp/cgi-bin/srch/srch_detail\.cgi\?bibid=[0-9]+)"><img class="thumb" src="(http://www\.bk1\.co\.jp/bookimages/.*\.jpg)" alt="" /></a></td>$)){
($url,$img)=($1,$2);
}elsif(m(^<input size="30" class="box" name="title" id="[^"]*" value="([^"]*)" /></div>$)){
$title=$1;
}elsif(m(^<input size="30" class="box" name="author" id="[^"]*" value="([^"]*)著" />)){
$author=$1;
}elsif(m(^</tr>$) && $url ne ""){
print "LIMG $url n $img [表紙画像: $title]\n";
print "LINK $url $title (${author}著)\n\n";
}
}
よしよし……と思ったらアフィリエイト情報が入ってなくてタダの紹介だよorz
まぁLIMGとLINKを両方出力するように改造した
前のスクリプト
の出力結果を見ると、アフィリエイト情報は&aid=nifc(略)で固定らしいので、
上のリンク先は手で追加、スクリプトも出力のところに書いておくけど。
しかもさらに、最初($url,$img)=($2,$1)とか書いてて激しくアフォな出力結果が……。
さらに
ユニクロ
に寄って
ラムVネックカーディガン(L)
と
ラムVネックセーター(L)
。
来春は、埃を被って放置されている間に虫に食われて穴が開くということのないよう、
密封防虫保管をすべし。
パソコン工房
に立ち寄ったら、PentiumMとマザーボードというのが売られていた。
ほえぇ、すげーな、と思ったけど、
1GHzそこそこのクロック数でプロセッサとマザーボードが各々2万数千円はちと高いな。
そして
ヤマダ電機
を視察。
炊飯器の一番安いのは二千円台、手動発電器つきラジオ・ライトも二千円台。
あと電動バリカンとかあちこち見て回ったが、結局何も買わず。
あと福山東郵便局で不在により受け取れなかった郵便物を受領して、帰途に。
5
[Misc][TV] ゆーがった&ヨルー
夕方になって、夕食の食糧も買って一旦帰宅の後、今度は自転車で美容室へ行くが、
やっぱり待っている人が3人ばかりいて、今日のところは髪切るの延期
*1
。
で、カードキャプターさくらを観た後、
カレーを作りつつそのままサイエンスゼロを流していたのだが、
各種の実験動物で、カロリー制限に老化を抑える効果あり、とな。
Googleを引いても、そういう話は結構出てくるなぁ。
なんか一日1600kcalくらいがいいとか何とか……。
とはいえ既に明日はパーソナル焼肉にすべく肉とか買ってあったり(^_^;
*1: 前回までは殆ど客がいなかったため、予約していないのである。
朝食: オーマイ ダブルソースのミートソーススパゲッティ
昼食: フレッシュバーガー、オニポテ、ミネストローネ、ウーロン茶@
モスバーガー
夕食: ハウスジャワカレー スパイシーブレンド
以上、1 日分です。