携帯で使われることがある機種依存文字と呼ばれるもの

文字 Shift_JIS UTF-8 JIS 備考 文字 Shift_JIS UTF-8 JIS 備考
8740 U+2460 2D21 丸1 8766 U+3336 2D47 ヘクタール
8741 U+2461 2D22 丸2 8767 U+3351 2D48 リットル
8742 U+2462 2D23 丸3 8768 U+3357 2D49 ワット
8743 U+2463 2D24 丸4 8769 U+330D 2D4A カロリー
8744 U+2464 2D25 丸5 876A U+3326 2D4B ドル
8745 U+2465 2D26 丸6 876B U+3323 2D4C セント
8746 U+2466 2D27 丸7 876C U+332B 2D4D パーセント
8747 U+2467 2D28 丸8 876D U+334A 2D4E ミリバール
8748 U+2468 2D29 丸9 876E U+333B 2D4F ページ
8749 U+2469 2D2A 丸10 876F U+339C 2D50 mm
874A U+246A 2D2B 丸11 8770 U+339D 2D51 cm
874B U+246B 2D2C 丸12 8771 U+339E 2D52 km
874C U+246C 2D2D 丸13 8772 U+338E 2D53 mg
874D U+246D 2D2E 丸14 8773 U+338F 2D54 kg
874E U+246E 2D2F 丸15 8774 U+33C4 2D55 cc
874F U+246F 2D30 丸16 8775 U+33A1 2D56 平方メートル
8750 U+2470 2D31 丸17 877E U+337B 2D5F 平成
8751 U+2471 2D32 丸18 8780 U+301D 2D60  
8752 U+2472 2D33 丸19 8781 U+301F 2D61  
8753 U+2473 2D34 丸20 8782 U+2116 2D62 No.
8754 U+2160 2D35 ローマ数字1 8783 U+33CD 2D63 K.K.
8755 U+2161 2D36 ローマ数字2 8784 U+2121 2D64 TEL
8756 U+2162 2D37 ローマ数字3 8785 U+32A4 2D65 丸上
8757 U+2163 2D38 ローマ数字4 8786 U+32A5 2D66 丸中
8758 U+2164 2D39 ローマ数字5 8787 U+32A6 2D67 丸下
8759 U+2165 2D3A ローマ数字6 8788 U+32A7 2D68 丸左
875A U+2166 2D3B ローマ数字7 8789 U+32A8 2D69 丸右
875B U+2167 2D3C ローマ数字8 878A U+3231 2D6A (株)
875C U+2168 2D3D ローマ数字9 878B U+3232 2D6B (有)
875D U+2169 2D3E ローマ数字10 878C U+3239 2D6C (代)
875F U+3349 2D40 ミリ 878D U+337E 2D6D 明治
8760 U+3314 2D41 キロ 878E U+337D 2D6E 大正
8761 U+3322 2D42 センチ 878F U+337C 2D6F 昭和
8762 U+334D 2D43 メートル 8793 U+222E 2D73  
8763 U+3318 2D44 グラム 8794 U+2211 2D74  
8764 U+3327 2D45 トン 8798 U+221F 2D78  
8765 U+3302 2D46 アール 8799 U+22BF 2D79  
require 5.008
use Jcode;
my $j = Jcode->new("\x87\x47", 'cp932');
# 携帯向け
print $j->fallback(Jcode::FB_HTMLCREF)->cp932;
# 携帯以外向け
print $j->fallback(Jcode::FB_XMLCREF)->sjis;  # ⑧
use Encode;
my $utf8 = decode('cp932', "\x87\x47");
# 携帯向け
print encode('cp932', $utf8, Encode::HTMLCREF);
# 携帯以外向け
print encode('shiftjis', $utf8, Encode::XMLCREF);  # ⑧