use strict;
use warnings;
use Encode;
my $charset = shift or die "Usage: $0 utf-8";
my $message = $charset =~ /utf-?8/i ? "ゆーてぃーえふ" : encode('cp932', decode('utf-8', "えすじす"));
print <<"...";
i-mode pictogram test
target charset: $charset($message)
docomo
- uni hex cref:
- uni dec cref:
- utf8 binary: @{[ encode 'utf-8', "\x{E63E}" ]}
- sjis hex cref:
- sjis dec cref:
- sjis binary: \xF8\x9F
target charset: $charset($message)
airh
- uni hex cref:
- uni dec cref:
- utf8 binary: @{[ encode 'utf-8', "\x{E093}" ]}
- sjis hex cref:
- sjis dec cref: &#@{[ 0xF0D4 ]};
- sjis binary: \xF0\xD4
...