swk's log

* Intel Inside なギター [tech]

どうもイロモノっぽい．

• http://japanese.engadget.com/2005/11/27/centrino-guiter/

Gibson のディジタルギターはもうちょっと本気な感じなのにな．

• http://www.gibsondigital.com/

6 弦独立してディジタル出力…よりも，イーサネットケーブルがギターから延びている絵にぐっと来たのを覚えている．(イーサネットプロトコルを使っているわけではなさそうだけど)

* Plays Metallica by Four Cellos [misc]

Metallica のトリビュートアルバムは，それこそ腐るほどあるけど，変なやつを 1 枚挙げるならこれが面白いです．チェロ 4 重奏．それなのにかなり原曲に忠実．

Apocalyptica / Plays Metallica by Four Cellos

* Beatallica [misc]

まず曲名でワロタ．

• http://www.beatallica.org/music.html
• (via http://nais.to/~yto/clog/2005-11-27-2.html)

しかしなんかメロコアみたいになっちゃうんだな．A Hard Days Night なんて Sugarcult のやつ (トヨタ ラクティスの CM 曲) かと思った．

Blackend the USSR のイントロで爆笑．

* tb-standalone 表示の長さ制限 [logging]

やろうやろうと思ってて放置していた．本当は受付時に処理するのが正しいと思うのだけど，とりあえず表示時で対応する．tb.cgi の sub enc の定義を除去して，代わりに以下を挿入．

my $enc_maxlen = 512;

sub round_utf8 { # http://www.akatsukinishisu.net/itazuragaki/id/round_utf-8.html
    my $str = shift;
    return $str if ($str =~ /[\x00-\x7F]$/);
    $str =~ s/[\xC0-\xFD]$//;
    $str =~ s/[\xE0-\xFD][\x80-\xBF]$//;
    $str =~ s/[\xF0-\xFD][\x80-\xBF]{2}$//;
#   $str =~ s/[\xF8-\xFD][\x80-\xBF]{3}$//;
#   $str =~ s/[\xFC-\xFD][\x80-\xBF]{4}$//;
    $str;
}

sub enc {
    use Jcode;
    my $str_orig = $_[0] ? Jcode->new($_[0])->utf8 : $_[0];
    my $str = &round_utf8(substr($str_orig, 0, $enc_maxlen));

    if ($str ne $str_orig) {
        $str .= " ...";
    }

    return $str;
}

utf8 の末尾切り落とし処理はぐぐって見つけたものを頂きました．自分では理解してませんのでそのままこぴぺしてます．

• http://www.akatsukinishisu.net/itazuragaki/id/round_utf-8.html