ぎょーむ日誌 2001-07-07

2001 年 07 月 07 日 (土)

• 0930 起床． うう， 生活時間ずれてる．
• 昼すぎまで website メンテナンス用 Perl スクリプトを 手直ししてすごしてしまう．
• どーもメイルがまるで来ない， と思って実験してみたら …… くそう， kubo@ees.hokudai.ac.jp あてのメイルが Asahi-net まで転送されない． どこに問題あるんだ? また停電しやがったんだろうか．
• 腐れファイアーウォールごしに独房内 BookPC (これは JAMSTEC の腐れメイルサーヴァー回避する ための自分用メイルサーヴァーになっている) にはアクセスできない． しょうがないんで， 土曜日だというのに独房まで出かけることにする．
• 1540 自宅発． 晴れ． 普通に乗って 1548 京急平和島発． 1600 京急川崎で降りる．
• 京急川崎横のヨドバシカメラへ． BookPC 用のメモリを買うことにした． ついでによゆーあったら Perl クックブックも ……
• ありていに言って， 「ニセ」アカマツとか動かすのに メモリが足らなくなることがあるから， 買い足す， という発想はかなりマズいのだけど …… まぁ， 近ごろは安くなったようだから， ものの試しとて買ってみるのである．
• …… 128MB 5000 円， 256MB 9000 円か …… そうかヨドバシでは リテール品 (うん? バルク品だっけ?) みたいなのは 扱わないから， そういう「正価」になるわけね． たしかに一年前に BookPC 用の 128MB SDRAM 買ったときに比べて値段は 半分未満になってる …… そして買うのであればハンパな増設はやりたくない． ということで， プリンストンテクノロジー 168 pin SDRAM 100MHz 256MB を 9450 円 (税込み) で買う． とほほ． 予定の二倍の出費だ ……
• ああ， 5800 円の Perl クックブック は買えんなぁ …… と未練たらしく立読みして知りたいことの キーワードを頭に入れる． オブジェクトの永続化とかそういうことである …… あとでネット上で調べてみると， いくつか資料みつかる． たとえば， またしてもヘンな企業 IBM の 洗練された Perl: Perl でデータ保管 という記事とか．
• 1623 快特で京急川崎発． 普通に乗り換えて 1640 京急上大岡発． 1700 研究所着．
• 独房につくと BookPC は動いている． Asahi-net への転送解除． /var/log/maillog を見ると， なぜかこの転送がうまくいってない． 外から kubo@ees.hokudai.ac.jp あてにメイル送ってみる． BookPC の qmail は問題無く動作している． ならばどこに問題あるのか?
• 調べてみてすぐにわかったのは …… 独房群の腐れ DNS サーヴァーが作動停止してやがる， ということだ． BookPC の qmail からメイルを転送するときに， いったん mailgate.jamstec.go.jp という SMTP サーヴァー経由 して送るんだけど， DNS サーヴァーが壊れているんで それが見つからない． だから転送できない， と．
• とりあえず /etc/resolv.conf を書き換えて， プライマリーで参照する DNS サーヴァーを 生きてるやつに切りかえる．
• はい． これはもう私の完全なミスです． ここの腐れ DNS サーヴァーなんぞ間違っても 信頼してはいけなかった …… と深く反省しつつ /etc/hosts に SMTP サーヴァーの IP アドレス を書いておくのであった． これはこれでマズいんだけど， 他に手のうちようがない．
• あー， BookPC の /var/log/maillog 見ると， 昨日から今日にかけてけっこうメイルが来てるのに， 全部差し戻されちゃってるよ． 多分どこか途中のサーヴァーで待機状態に おかれてるんだろう． くそう．
• メイルがひととーり再送されるまで， BookPC は止めないほうがいいだろうな …… ということで， 高額にて買ってきたメモリを装着できないのであった．
• ハジかれたメイルたちが再送されてこないかなぁ， と待ちながら「ニセ」アカマツコードの手直し． これは永続オブジェクトといった 高尚な改善ではなく， むしろ原始化とでもよぶべき処理である． いままで， たとえば

	$tree->{ "Data" }->{ "age" }
	$stem->{ "Data" }->{ "length" }

というふうに， メンバ変数 (らしきもの) にアクセスするようにしてた (じつは数日前まではもっと礼儀正しく $stem->Data( "length" ) などとしてた) んだけど， どーせ Perl のケガれおぶぢぇくと指向なんて (呪われ C++ なんかで言うところの) private も protected も無くて， ぜーんぶ public なんだから

	$tree->{ "age" }
	$stem->{ "length" }

というふうにしてしまえ， と書き換えてしまっただけである．
• これでスゴかったのは， 後者のように直しても速度がほとんど 改善されなかった という点である． つまり Perl のハッシュとはそれほどまでに 高速化検索を実現してるワケだ． おそるべし Larry Wall ．
• 2130 研究所発． 普通に乗って 2148 京急杉田発． 特急に乗り換えて 2200 京急上大岡発． 京急平和島で降りて 久しぶりにマルエツなどで買いものして (この時間はそこぐらいしか開店してない) 2250 帰宅．
• 今日の食卓
  • 朝 (1000): ざる蕎麦．
  • 昼 (1500): ざるうどん．
  • 晩 (2330): 米 0.8 合． 鶏の砂肝・タマネギ・ニンジン・シイタケ・ニンニク の炒めもの． ひさびさにキムチ味．