Hatena::Groupmobilehacker

tokuhiromの日記 RSSフィード

 | 

2008-01-21

x-sjis-docomo-convert 15:01 x-sjis-docomo-convert - tokuhiromの日記 を含むブックマーク はてなブックマーク - x-sjis-docomo-convert - tokuhiromの日記 x-sjis-docomo-convert - tokuhiromの日記 のブックマークコメント

↓ decode と encode が逆。

package Encode::JP::Mobile::Convert::DoCoMo;
use strict;
use base qw(Encode::Encoding);
__PACKAGE__->Define(qw(x-sjis-docomo-convert));
define_alias('x-sjis-imode-convert' => 'x-sjis-docomo');

sub decode($$;$) {
    my($self, $char, $check) = @_;
    Encode::decode('x-utf8-docomo', Encode::encode('x-utf8-docomo', Encode::decode('x-sjis-docomo', $char, $check)));
}

sub encode($$;$) {
    my($self, $str, $check) = @_;

    Encode::encode('x-sjis-docomo', $str, $check);
}

1;
 |