送料調整用に最適か？Amazonブックカバー　100円:[俺100]
http://blog.zikokeihatu.com/archives/001139.html

によると、

(1) 以前キャンペーンをやっていた文庫サイズのブックカバーが100円に！


(2) 文庫・新書をあわせて3冊買うとブックカバーが無料に！(11/30まで)

(追記061109: これ、買う対象商品が決まっているので注意！情報感謝！)

とのこと。これはツイてる！

送料調整もよし、無料でゲットしてもよし。
持ってない人はこの際ガンガンゲットすると良いかとー。

ref.
- [を] アマゾンブックカバーキャンペーン、今日まで[2006-07-31-1]
- [を] アマゾンブックカバー全色そろいました！[2005-10-02-3]

「情報考学　Passion For The Future」(http://www.ringolab.com/note/daiya/)
で知られるアルファブロガー橋本大也さんが、ブログ本を出すそうです！

■橋本大也 / 情報考学　WEB時代の羅針盤213冊



内容紹介によると、

ＩＴビジネス界の隠れたカリスマ橋本大也氏の人気ブログ「情報考学」の
書評を一冊にまとめた現代の知的参考書。

といった感じ。
ブログの書評をまとめたものかな。とにかく要チェック！

下記を読みながらメモ。

- perl.com: Retire your debugger, log smartly with Log::Log4perl!
  http://www.perl.com/pub/a/2002/09/11/log4perl.html

Log::Log4perl には5つの logging levels がある。

(低) DEBUG < INFO < WARN < ERROR < FATAL (高)

例えば、DEBUG を指定すると全レベルのメッセージが出る。
これに関して、":easy" を使った例：

#!/usr/bin/perl
use strict;
use warnings;
use Log::Log4perl qw(:easy);

test($DEBUG);
test($WARN);
test($FATAL);

sub test {
    my $level = shift;
    print "LEVEL = $level\n";
    Log::Log4perl->easy_init({level => $level,
                              layout => "%d %p> %F{1}:%L %M - %m%n"});
    my $logger = get_logger();
    $logger->debug("debug");
    $logger->info("info");
    $logger->warn("warn");
    $logger->error("error");
    $logger->fatal("fatal");
}

実行結果：

% ./log1.pl
LEVEL = 10000
2006/11/06 22:53:41 DEBUG> log1.pl:16 main::test - debug
2006/11/06 22:53:41 INFO> log1.pl:17 main::test - info
2006/11/06 22:53:41 WARN> log1.pl:18 main::test - warn
2006/11/06 22:53:41 ERROR> log1.pl:19 main::test - error
2006/11/06 22:53:41 FATAL> log1.pl:20 main::test - fatal
LEVEL = 30000
2006/11/06 22:53:41 WARN> log1.pl:18 main::test - warn
2006/11/06 22:53:41 ERROR> log1.pl:19 main::test - error
2006/11/06 22:53:41 FATAL> log1.pl:20 main::test - fatal
LEVEL = 50000
2006/11/06 22:53:41 FATAL> log1.pl:20 main::test - fatal

なお、

Log::Log4perl->easy_init({file => ":utf8> a.log", ... });

などのファイル指定も可能。

ドキュメント読むとなんか細かいことがいろいろできそうなんだけど、
当面は ":easy" でいいかな。あとは必要になり次第。

Devel::DProf
http://metatoys.org/propella/tips/Devel_DProf.html

DProfの話は、「プログラミングPerl 第3版 VOLUME 1」の
第20章「Perlデバッガ」に載っています。
デバッガ(perl -de0)の話も詳しいです。

で、プロファイルの使い方。
例えば、foo.pl というプログラムをプロファイリング。

% perl -d:DProf foo.pl

で、tmon.out というファイルができます。整形して見るには dprofpp。

% dprofpp
Total Elapsed Time = 54.58411 Seconds
  User+System Time = 49.11048 Seconds
Exclusive Times
%Time ExclSec CumulS #Calls sec/call Csec/c  Name
 82.8   40.69 41.423    454   0.0896 0.0912  Foo::Process
 8.95   4.393  3.399 102308   0.0000 0.0000  Bar::GetNext
 3.79   1.862  4.889    544   0.0034 0.0090  Foo::Parse
 2.22   1.090  1.823    454   0.0024 0.0040  Foo::GetContent
 1.92   0.943  0.641  33853   0.0000 0.0000  Hoge::search
 1.64   0.803  0.437  27471   0.0000 0.0000  Hoge::get
 1.63   0.802  0.835  19114   0.0000 0.0000  Foo::get
 1.40   0.687  0.357  33853   0.0000 0.0000  Hoge::find
 1.25   0.615  0.736  14739   0.0000 0.0000  Foo::_get
 1.14   0.562 49.770    454   0.0012 0.1096  Foo::Eat
 0.89   0.437  0.169  27471   0.0000 0.0000  Hoge::_getline
 0.83   0.406  0.402    454   0.0009 0.0009  Bar::Destroy
 0.63   0.311  5.192    454   0.0007 0.0114  Foo::Parse2
 0.24   0.117  0.113    454   0.0003 0.0002  main::output
 0.21   0.101  0.097    454   0.0002 0.0002  Foo::lock_file

この結果（擬似）から、Foo::Process が実行時間の大部分を占めている
こと判明。高速化するにはまずこの部分に手を入れるべきであるというこ
とが分かります。

ref.
- svk を当社比100倍高速化する方法: blog.bulknews.net
  http://blog.bulknews.net/mt/archives/002077.html
- [を] Perlデバッガ[2005-01-06-3]

旧聞ですがアマゾンのホーム＆キッチンで「コーヒーストア」ができてた！
コーヒーストア - お手軽派から本格派まで

インスタントコーヒーなんかも売ってますね。



ちなみに私の持っている電動ミルはこれ。当時は4800円で買ったのに、3150円だよ、ぬぬぬ。(ref. [2001-12-04-4])

Kalita 電動コーヒーミル CM-50 (ブラック)
[楽天で探す]

うちでは、どこかからもらった陶器製のドリッパーをペーパーフィルター
を使っています。今ほしいのは、先が細いドリップ用のケトル。



ref.
- [を] コーヒーを飲みながら[2005-07-13-3]
- [を] 電動コーヒーミル[2002-07-22-2][2001-12-04-4]