论坛 › Perl › perl 解码和压码use Encode

buser 发表于 2017-5-19 12:08:35

perl 解码和压码use Encode

　　use Encode;
gbk->uft-8：
$line = encode("utf-8",decode("gbk",$line));
或
$line = encode_utf8(decode("gbk",$line));
utf-8->gbk：
$line = encode("gbk", decode("utf8", $line));
uft-8->gb2312：
$line = encode("gb2312", decode("utf8", $line));

查看完整版本: perl 解码和压码use Encode