2005-11-27 Sun
* Intel Inside なギター [tech]
どうもイロモノっぽい．
Gibson のディジタルギターはもうちょっと本気な感じなのにな．
6 弦独立してディジタル出力…よりも，イーサネットケーブルがギターから 延びている絵にぐっと来たのを覚えている．(イーサネットプロトコルを使っ ているわけではなさそうだけど)
関連記事:
[2006-09-02-2] BEHRINGER USBギター iAXE393
[2006-09-02-2] BEHRINGER USBギター iAXE393
* Plays Metallica by Four Cellos [misc]
Metallica のトリビュートアルバムは，それこそ腐るほどあるけど，変なや つを 1 枚挙げるならこれが面白いです．チェロ 4 重奏．それなのにかなり 原曲に忠実．
Apocalyptica / Plays Metallica by Four Cellos
関連記事:
[2006-09-17-1] Apocalyptica / Path Vol. II
[2006-09-17-1] Apocalyptica / Path Vol. II
* Beatallica [misc]
まず曲名でワロタ．
しかしなんかメロコアみたいになっちゃうんだな．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 の末尾切り落とし処理はぐぐって見つけたものを頂きました．自分で は理解してませんのでそのままこぴぺしてます．
