Perl中文/unicode/utf8/GB2312之间的转换

心海恋歌

　　Perl中文/unicode/utf8/GB2312编码之间的转换是一件很让人头疼的事情，我总结了以下主要的转换方法，供大家了解参考。
# author: jiangyujieuse utf8;use Encode;use URI::Escape;$/ = "/n";#从unicode得到utf8编码$str = '%u6536';$str =~ s//%u([0-9a-fA-F]{4})/pack("U",hex($1))/eg;$str = encode( "utf8", $str );print uc unpack( "H*", $str );# 从unicode得到gb2312编码$str = '%u6536';$str =~ s//%u([0-9a-fA-F]{4})/pack("U",hex($1))/eg;$str = encode( "gb2312", $str );print uc unpack( "H*", $str );# 从中文得到utf8编码$str = "收";print uri_escape($str);# 从utf8编码得到中文$utf8_str = uri_escape("收");print uri_unescape($str);# 从中文得到perl unicodeutf8::decode($str);@chars = split //, $str;foreach (@chars) {printf "%x ", ord($_);}# 从中文得到标准unicode$a = "汉语";$a = decode( "utf8", $a );map { print "//u", sprintf( "%x", $_ ) } unpack( "U*", $a );# 从标准unicode得到中文$str = '%u6536';$str =~ s//%u([0-9a-fA-F]{4})/pack("U",hex($1))/eg;$str = encode( "utf8", $str );print $str;# 从perl unicode得到中文my $unicode = "/x{505c}/x{8f66}";print encode( "utf8", $unicode );