トップ «前の日記(03/30/2009) 最新 次の日記(04/01/2009)» 編集

本 日 の h o g e

hogeとはワイルドカードのようなものです。日々起こった、さまざまなこと −すなわちワイルドカード− を取り上げて日記を書く、という意味で名付けたのかというとそうでもありません。適当に決めたらこんな理由が浮かんできました。

更新情報の取得には rdflirs を使ってもらえると嬉しいです.


03/31/2009 むう [長年日記]

tDiary 2350日目

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

  • 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