Chinaunix

标题: perl在系统默认为UTF-8编码下如何取得字符的ASCII码值? [打印本页]

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

作者: apile 时间: 2003-05-27 17:21
标题: perl在系统默认为UTF-8编码下如何取得字符的ASCII码值?
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 时间: 2003-05-28 11:14
标题: perl在系统默认为UTF-8编码下如何取得字符的ASCII码值?
谢谢帮忙！

作者: 轩辕砍刀 时间: 2003-05-29 22:32
标题: perl在系统默认为UTF-8编码下如何取得字符的ASCII码值?
不错

欢迎光临 Chinaunix (http://bbs.chinaunix.net/)