hogeとはワイルドカードのようなものです。日々起こった、さまざまなこと −すなわちワイルドカード− を取り上げて日記を書く、という意味で名付けたのかというとそうでもありません。適当に決めたらこんな理由が浮かんできました。
03/31/2009 むう [長年日記]
tDiary 2350日目
■ [小ネタ][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
こんな数字見たことねえ.