本 日 の h o g e

■ [Perl][日記] クックブック

より良いコードを書けるようにとPerlクックブックを引っ張り出してせこせこお勉強。うーむ毎度のことながらコレを読むと目からウロコが落ちまくって辺り一面ウロコだらけ。

…そういや目からウロコなんてネタがあったですぎょ。

■ [ニュース] IBMが法廷闘争準備

しかしホント、IBMもいい迷惑だよなぁ。アホみたいないいがかりつけられてさ。

■ [日記] がーん

今日はふらふらと街巡り．田舎は開発が遅いからあんまり変わらないなあ．

…と思って出身中学校へ足を運んでみてびっくり．外観も中身もさっぱり変わってた．ぬおーあれはもう俺の知ってる学校じゃない．「準備室」がないなんてそんなバカな！

事務のおねーさんに聞いた話によると，担任だった先生とかももう別の学校に移っちゃってるらしい．知った名前はもう２〜３人くらいしかいなかった．その内関わりがあったのは音楽の先生ただ一人．部活だそうで会えなかったけど．

しかし事務のおねーさんが先生の名前を挙げていたとき，「あと古株の先生は…」なんて言ってた．７年も経つと古株になっちゃうのか．

■ [写真] 城

どうせ近所なので松江城天守閣を見てきた．やっぱかっこいいねぇ．

■ [日記] LaTeX 用履歴書スタイルファイル (俺仕様)

昨日の夜からせこせこと何をやっていたかというと，コレを書いてました．

で，中身を書いてない．どうしよう．

■ [日記] というか

yendot 効果と slashdot 効果は更に恐るべしだった……．

Apache ログを眺めてたら，この二つからのうひアンテナへのアクセスが異常に多くて参った．リファラスパムなんか目じゃないな．もし重い CGI とかにリンク張られでもしたらこの貧弱サーバじゃ耐えられないだろうなあ．

最近むアンテナや /.J 見てないから気付かなかった．

しかし yendot (むアンテナ) は確認したけど，/.J のどこからリンク張られてたんだろう？ 見つからない．

■ [Gentoo][日記] ぬお

GWN に OSC2005 の写真が載ってたとは．真ん中より少し左よりのところで外国人の方と話してるのが俺．

てか usata さんの関西行きまで書いてあるし．色んな意味ですげーな Gentoo．

■ [日記] 飯日記

• 14時頃：深川めし，深川丼
• 20時頃：ビッグマックセットL

■ [Gentoo][日記] テレビ

ぱ研を参考に音声を 48kHz に強制するパッチと音量が極小なのを直すパッチを当てて (実際はバージョン違いにより当たらないので該当個所を手動で直したが)，なんとか見れるようになった．詳細はまた後で書く．

しかしまだ音が小さい．スピーカの音量を上げるとノイズ入りまくりだし．どうやって直したもんかな．

詳細

パッチにはしてない．満足行く結果が得られれば作るかも．

saa7115 を書き換えて音声を 48kHz に強制

/usr/src/linux/drivers/media/video/saa7125.c を，ぱ研の gv_saa7115_060214.patch.gz を参考に書き換え，カーネル再構築．

音量操作部の書き換え

ぱ研の音量問題.diff を参考に i2c-drivers/saa717x.c の 1013，1014 行目の (24-(-40)) となってるところを (24-(-41)) に直す．同じくぱ研の xwm8739.c-volume.patch を参考に，i2c-drivers/wm8739.c の 168，169 行目の work_l * 31 となっているところを (work_l + 1) * 31 に直す．work_r に関しても同様．ただこれは何か間違ってる気がする．後で見直してみよう．

■ [日記] 姉貴夫婦来た

4 ヶ月の甥と対面．可愛いなー．まつげが異様に長いのは俺らの血だな．

■ [日記] スーツ買った

やっぱスーツって高いわ……お財布に痛い．

しかしコナカで女性店員に「お帰りなさいませ」なんて言われるとは思わんかった．これなんてメイド紳士服店？

いやデビットカード使えるかって訊いたら，扱ってないけど近くのコンビニでおろせますよって言われたのね．で，おろしてまた行ったというだけなんだけど．

この店員のおねーちゃんはよく笑うよく喋るおもろい人だった．最後に大型紳士服店に行ったのは多分もう 6 年くらい前になるけど，最近の紳士服店にはフツーのカジュアルを扱ってる店にいるような店員がいるのね．

しかしまさかスーツ買いに行って店員と仕事観とか仕事の楽しみと苦労みたいな，就活じみた話をすることになろうとは思わんかった．

上着とスラックスを選んだ後でシャツとネクタイを見てると，「こういうのだとこうなりますけどいかがでしょ」的に店員が色々持ってきて，選んだ上着に合わせて見せてくれたりする．その姿が妙に活き活きしてたもんで，ついつい「楽しそうですねぇ」って言ってしまったからなんだけどね．あまりに次々と持ってくるもんで，引き上げるタイミングが難しかったよ．

やはり趣味だろうが仕事だろうが，何事も楽しんでやらんと損だよね．

しかし楽しむのはいいけど，シャツとネクタイとかを合わせてる時に「私こういうの好きなんですよ」と言われても，一体誰のを選んでるんだか(わら

■ [日記] 飯日記 / 失われたトーフ《聖豆》

• 10 時頃: おにぎり
• 21 時頃: コンビニ弁当

そろそろ栄養失調で倒れるかもわからんね．

■ [小ネタ][Perl] 歴史あるモジュールは.. という法則とかありそうよね

$ countperl /usr/lib64/perl5/vendor_perl/5.8.8/File/Tail.pm | grep -A10 'complexity' | column -t -s"^V^I"
complexity  sub             path                                             size
22          new             /usr/lib64/perl5/vendor_perl/5.8.8/File/Tail.pm  53
20          select          /usr/lib64/perl5/vendor_perl/5.8.8/File/Tail.pm  40
16          reset_pointers  /usr/lib64/perl5/vendor_perl/5.8.8/File/Tail.pm  47
16          read            /usr/lib64/perl5/vendor_perl/5.8.8/File/Tail.pm  40
12          position        /usr/lib64/perl5/vendor_perl/5.8.8/File/Tail.pm  39
8           error           /usr/lib64/perl5/vendor_perl/5.8.8/File/Tail.pm  30
8           readin          /usr/lib64/perl5/vendor_perl/5.8.8/File/Tail.pm  25
7           errmode         /usr/lib64/perl5/vendor_perl/5.8.8/File/Tail.pm  19
7           checkpending    /usr/lib64/perl5/vendor_perl/5.8.8/File/Tail.pm  24
5           predict         /usr/lib64/perl5/vendor_perl/5.8.8/File/Tail.pm  19

↑こんなのは序の口．

しかし

$ countperl /usr/lib64/perl5/vendor_perl/5.8.8/Expect.pm | grep -A10 'complexity' | column -t -s"^V^I"
complexity  sub                    path                                          size
130         _multi_expect          /usr/lib64/perl5/vendor_perl/5.8.8/Expect.pm  320
65          interconnect           /usr/lib64/perl5/vendor_perl/5.8.8/Expect.pm  113
55          expect                 /usr/lib64/perl5/vendor_perl/5.8.8/Expect.pm  112
29          soft_close             /usr/lib64/perl5/vendor_perl/5.8.8/Expect.pm  67
25          spawn                  /usr/lib64/perl5/vendor_perl/5.8.8/Expect.pm  77
19          _add_patterns_to_list  /usr/lib64/perl5/vendor_perl/5.8.8/Expect.pm  43
18          hard_close             /usr/lib64/perl5/vendor_perl/5.8.8/Expect.pm  64
15          AUTOLOAD               /usr/lib64/perl5/vendor_perl/5.8.8/Expect.pm  33
15          send_slow              /usr/lib64/perl5/vendor_perl/5.8.8/Expect.pm  27
14          log_file               /usr/lib64/perl5/vendor_perl/5.8.8/Expect.pm  23

こんな数字見たことねえ．

■ [戯言] てかさ

世のコード書きはみんなつべこべ言わずに自分のコードの複雑度を測ってみるといいよ． 「鬱だ氏のう」派と「俺スゲー」派できっぱり分かれると思う．

そして「鬱だ氏のう」派は責任持ってそのコードを墓場まで持っていけ．

ちなみに俺は「鬱だ氏のう」派ですけどね．teehee

■ [日記] むー

昨日の昼前に始まり，今なお断続的に続く謎の胃痛． わけわからん．

にきびも治らないし，なんかぼろぼろだなぁ．