文字コードの取得

---

　ordとsprintfを使います。

my $str = 'あいう';
$str =~ s/(.)/sprintf "%X", ord($1)/eg;
print "$str\n";	# A4A2A4A4A4A6(EUCの場合)／82A082A282A4(SJISの場合)

---

関連項目

・ord関数
・sprintf関数
・ASCIIコードと文字の相互変換