D-7 <altijd in beweging>

Day to day life of a Perl/Go/C/C++/whatever hacker. May include anything from tech, food, and family.

2012年02月

小ネタ。GETした内容のMD5が欲しかったので。

    use strict;
    use Furl::HTTP;
    use Digest::MD5;

    my $digest = Digest::MD5->new;
    my $furl = Furl::HTTP->new;
    $furl->request(
        method => "GET",
        url => "http://whatever/text.txt",
        write_code => sub {
            my ($code, $msg, $hdrs, $partial) = @_;
            return unless $code ne 200;

            $digest->add( $partial );
        }
    );
    print $digest->hexdigest;
    このエントリーをはてなブックマークに追加 mixiチェック Share on Tumblr

本日ちょうど嫁も妊娠時の検診をしようということで自分も一緒に歯医者で検診+歯石取りを受けてきた。1年ぶりにいったのだが、もう歯石取りが気持ちよくて気持ちよくて、途中何回も落ちそうだった。

知り合いはみんな歯石を取られてると痛いというんだけど、俺はこれ気持ちいいだけなんだよなぁ。

ちなみに実は一年前に歯医者に行ったのがそもそも15年ぶりで、それでも虫歯も一個もなく今回と同じ処置をされただけだったんだけど、前回はだいたい30分くらいで終わった歯石取りが今回はたっぷり1時間以上かかった。15年分の歯石を取るのが30分で1年分の歯石を取るのが1時間っておかしい・・・ということは前回俺を担当した女医さんが雑な処理をしたのだがな・・・というのが発覚。

まぁいいけど。また来年くらいに気持ちよく歯石を取ってもらおうと思う。

ああ、ちなみに今回も虫歯は一本もありませんでした。嫁は軽い虫歯2本発覚。
    このエントリーをはてなブックマークに追加 mixiチェック Share on Tumblr

STFでMOVEをサポートした。オブジェクト名を変更できるヤツ。あとSTF_ENABLE_STORAGE_METAってのを1にすると管理画面からストレージ毎にコメントをつけられるようになる。

あと次に時間があるときに指定フラグがオンだったらオブジェクトのMD5とエンティティのMD5を記録するようにしようと思う。ただし、これはあくまでもオプションとして実装する予定。
    このエントリーをはてなブックマークに追加 mixiチェック Share on Tumblr

というわけで寄稿しました。2ページだけ。僕のオススメは"Introduction to Algorithms"です。読み物としておもしろいかっていうとそうではないんだけど、ソフトウェア書く人は一回真面目に読んでみても全く損がない、渋い良書だと思います。

ちなみに昨日デブサミに行ったらなぜか真っ先にMatzにサインをするハメになった。シュールだった。
    このエントリーをはてなブックマークに追加 mixiチェック Share on Tumblr

このページのトップヘ