O'GANE'S EXPERIENCES

銀のエンゼル5枚目。

長かった…。

さくばんは新宿で遊んでいろいろ有って終電をのがし、今朝は始発で大塚の会社に行ってはたらいてきた。きょうの疲れ自慢。

帰りにぼさぼさだった髪をばっさり切った。あーすっきりだ。一歩前進だぜ。

　トラックバックは、なかなかやってこない。完全に Blog コミュニケーションの蚊帳の外にあるうちのサイトです。さみしいので実験と称して手前でトラックバックを送信してみました。

　wakwak のサーバからはトラックバックを送ることができないので Blog People の「ぶろっぐぴんぴん」というアプリケーションを利用しました。トラックバック送信元の URL 、タイトルやコメントを入力して、送信。わくわくしながら writeback欄を見てみるとなんと何も表示されていない。以前 writeback プラグインに手を加えたときにトラックバックに関する項目を表示しないようにしたのを忘れていました。

　それを直して再度トラックバックを送ると今度は表示はされたものの、文字化けしてしまいました。どうやら「ぶろっぐぴんぴん」のトラックバックは UTF8 で送信されているようで、それを EUC で表示しようとするから文字化けがおこったようです。

　解決策として、writebackプラグインで表示するときに文字コードを判別して EUC に変換するという方法をとりました。本当ならトラックバックが送られてファイルに記録されるときに変換してしまえばよいのですが今までのファイルとの互換性も考えて上の方法をとりました。

　以下は writebackプラグインの変更部分です。文字コードの判別、変換には perl 5.8 以降の Encode モジュールを用いています。それについては Perl 5.8.x Unicode関連 を参考にしました。

　まず Encode モジュールを使います宣言。

package writeback;
use Encode qw(from_to);
use Encode::Guess qw/euc-jp shift-jis/;

　次に $writeback 行を出力する部分で文字コードの判別と変換を行います。

$writeback =~ s/\$writeback::(\w+)/$param{$1}/ge;
my $guess = Encode::Guess::guess_encoding($writeback);
unless(ref $guess){
 Encode::from_to($writeback, "euc-jp", "euc-jp")
}else{
 $writeback = $guess->decode($writeback);
 $writeback = Encode::encode("euc-jp", $writeback);
}

　以上です。

　これでどんな文字コードが送られてきても完璧に表示することができる、はずです。実験トラックバックお待ちしております。

学校

とりあえず午前中についたので合格。

安心

長期休業中だった ラーメン　いち井 が3/14に再開される。またあのおいしいラーメンが食べられると思うと今から楽しみ。

富豪刑事

　今週は深田刑事の TVCM 出演シーンがよかった。来週はセーラー服とスクールウォーズが見どころか。