tomi-ruのモバイル日記

profile
記事とカテゴリ一覧はこちら
 | 

2008-01-23

Encode::JP::Mobile::FB_CHARACTER 的な

02:05 | はてなブックマーク - Encode::JP::Mobile::FB_CHARACTER 的な - tomi-ruのモバイル日記

sub Encode::JP::Mobile::FB_CHARACTER {
    my $u = shift;
    my $char = Encode::JP::Mobile::Character->from_unicode($u);

    my $i = 0;
    while (my @called = do { package DB; @DB::args = (); caller($i++) }) {
        next if $called[3] ne 'Encode::encode';
        my $enc = Encode::find_encoding($DB::args[0])->name;
        my ($charset, $carrier) = $enc =~ /-([^-]+?)-([^-]+?)/;

        return encode($charset, $char->failback_name($carrier)); # っていうのはまだないけど
    }

}

みたいなのがあれば

print encode('x-utf8-docomo', "\x{ECA2}", \&Encode::JP::Mobile::FB_CHARACTER);

で「(>3<)」とかできて楽かも

dat/ 以下も EJM::Character もつくり中な今はまだ妄想

 |