perl 解码和压码use Encode;
时间：2009-04-12 来源：snowtty
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));
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));
相关阅读 更多 +
