おいぬま日報(不定期)

@ tDiary入れ替え

実に久しぶり。およ、プレビュー機能なんていつの間に

@ [book] 宮部みゆき 理由

9月末から読み始めて、昨日やっと読了。

荒川のマンションで、一家4人の惨殺。その一家は実は本当の家族ではなく全くのアカの他人で、その人達は一体何者だったのか、なぜ殺されなければならなかったのか? という疑問をドキュメンタリータッチで描く。この「ミステリーをドキュメンタリーとして描く」手法がこの作品の目玉です。

個人的な感想を言えば、この新しい手法が「宮部みゆきらしさ」を薄くしてしまっているようで、ちょっと失敗だったのではないかな〜と思いました。新しいことに挑戦するのはもちろん評価できることですけどね。音楽と一緒ですなぁー、うんうん。

@ [life] AmazonでCD

先日、Amazonで初めてCDを買ったのですが、CDケースがバキバキに割れていました。最初からこうだったのか、それとも輸送中にこうなってしまったのかはわかりませんが、ちょっとショックです。毎回こんな感じだったらたとえどんなに安くてもAmazonでCDは買いたくないですねぇ。

@ [mysql] そのまま使えるシリーズ MySQL / Stack*

インポート／エクスポートのやり方がわからなかったので参考になりました。

@ [mysql] CREATE TABLE文を表示する

指定したデータベースのCREATE TABLE文を出力するには下記のコマンドで。ただし外部キーの設定を行っている場合、依存している順番では出力してくれないのでそのままCREATE TABLEを実行してもエラーになる場合があります。めんどくさー。

$ mysqldump -d データベース名

@ [cpan] Class::Inspector->loaded

Class::Inspectorという便利なモジュールがあるのですが、これのloaded(そのクラスがすでにuseまたはrequireされているか判定するメソッド)の実装ってどうなってんだー、あんまりパフォーマンスに影響与えないよなぁとか気になって見てみたら

my ($class, $name) = @_;
 
# Handle by far the two most common cases
# This is very fast and handles 99% of cases.
return 1 if defined ${"${name}::VERSION"};
return 1 if defined @{"${name}::ISA"};
 
# Are there any symbol table entries other than other namespaces
foreach ( keys %{"${name}::"} ) {
        next if substr($_, -2, 2) eq '::';
        return 1 if defined &{"${name}::$_"};
}
 
# No functions, and it doesn't have a version, and isn't anything.
# As an absolute last resort, check for an entry in %INC
my $filename = $class->_inc_filename($name);
return 1 if defined $INC{$filename};
 
'';

って感じになっててなるほど、って思いました。PACKAGE::VERSIONってどのモジュールでも大抵定義されているので、基本的にはこれで判定できますね。というわけで速度的にも問題なさそうで一安心。

@ [emobile] emobileでデータ通信したい場合はレンタルがお得？

kakaku.comの掲示板を見ていてたまたま知ったのですが、niftyなどの有名どころのプロバイダがemobileのデータ通信用の端末をレンタルしていて、これのN万円キャッシュバックプランがあるようです。emobileはサポートがいけてなかったり、本当に電波が届くか微妙な場合があるので、いきなり新にねんにして途中で解約するより、ある程度レンタルで契約してからの方が良いのかも。