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

最新推荐文章于 2021-01-29 16:37:47 发布

最新推荐文章于 2021-01-29 16:37:47 发布 · 244 阅读

文章标签：

#Perl #F#

本文提供了Perl中各种字符编码如Unicode、UTF-8、GB2312等相互转换的方法及示例代码，帮助开发者解决实际应用中遇到的编码问题。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

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 );