今天在处理数据时，发现perl的中文输出总是乱码，后来用
use Encoding; encode("gbk", decode("utf-8", $str));
这样的语句转一下就好了，decode的应该是$str原来的编码方式，转为后面的编码方式就可以了。
