tomi-ruのモバイル日記

tokuhirom++

13:12 |

use charnames ':full';
use Encode;
use Encode::JP::Mobile;
use Encode::JP::Mobile::Charnames;

sub FB_CHARNAME {
    sprintf '[%s]', Encode::JP::Mobile::Charnames::unicode2name(shift);
}

# Docomoの「晴れ」と「スポーツ」（スポーツはAUには対応するのがない）
print encode('x-utf8-kddi', "\x{E04A}\x{E652}", \&FB_CHARNAME);

という簡単なcallbackでこんなのができてすてき

関係ないけど

my $FB_CHARNAME = sub {
    sprintf '[%s]', Encode::JP::Mobile::Charnames::unicode2name(shift);
};

print encode('x-utf8-kddi', "\x{E04A}\x{E652}", $FB_CHARNAME);

だと

Modification of a read-only value attempted at /usr/lib/perl5/5.8.8/i386-linux-thread-multi/Encode.pm line 147.

とか言われるのはなんでだろう

# がー電池がきれるー