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

Perl中文/unicode/utf8/GB2312编码之间的转换是一件很让人头疼的事情，我总结了以下主要的转换方法，供大家了解参考。

# author: jiangyujie use 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 unicode utf8::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 );