blog.nomadscafe.jp

はてなブックマークでちらりと見かけたid:hidedenさんのこのエントリー。すでにプログラムな視点からはSawaさんが議論されていますが、斜めからの意見としてはCGI.pmを継承してまで漢字コードの変換をする必要性を考える事が必要かなと思う。

一般的なブラウザならば、ページのエンコーディングとPOST/GETのリクエスト文字列のエンコーディングは同じ（ハズ）です。Perlでプログラムを作るのであれば、EUC-JPまたは最近であればUTF-8でコーディングしていると思います。プログラムからの出力も同じエンコーディングで行えばまったく問題ありません。わざわざJcodeを挟み込んだりすると漢字コードの判断ミスがおきて逆に文字化けしてしまうこともあるでしょう。

しかし、一般的なブラウザではない携帯電話の場合、ページのエンコーディングはShift_JIS、サーバサイドの文字コードはEUCなどとするのが通常の流れだと思います。その時は仕方がないので「現在のエンコーディングを指定」しつつ変換するのが良いでしょう。フレームワークを使うのも手です。

例によってCGI::Applicationならば、

package MyApp;

use strict;
use base qw(CGI::Application);
use Jcode;

sub cgiapp_init{
    my $self = shift;
    $self->header_props(-charset=>'Shift_JIS');
}

sub cgiapp_prerun{
    my $self = shift;
    #Sledge::Charset::Shift_JISを参考
    for my $p ($self->query->param) {
        my @v = map { Jcode->new($_, 'sjis')->h2z->euc } $self->query->param($p);
        $self->query->param($p,@v);
    }
}

sub cgiapp_postrun{
    my $self = shift;
    my $bodyref = shift;
    $$bodyref = Jcode->new($$bodyref,'euc')->sjis;
}
1;

動作確認はしていませんが、こんな感じでしょうか。

携帯電話ならJcodeよりUnicode::Japaneseの方が魅力的なメソッドが並んでおります。