perl在系统默认为UTF-8编码下如何取得字符的ASCII码值?

SOOOOOOS

系统的默认编码为UTF-8,如果字符的ASCII值大于0xC0,调用perl中的ord()函数会认为这个字符为UTF-8字符，而会去取下一个字节的信息，以便组成一个UTF-8字符。我现在只想取得该字符的ASCII编码，而不取下一个字节的信息，请问有函数可以调用吗？

apile

unpack("H*",$a);
自己抓前面兩個數字或者其他數字..轉換...
!/usr/bin/perl
$a = "我";
print "$a,$b,$c\n";
$b= unpack("H*",$a);
print "$a,$b,$c\n";
$c = hex(substr($b,0,2));
print "$a,$b,$c\n";

SOOOOOOS

谢谢帮忙！

轩辕砍刀

不错