sxw

需要加载 Encode模块，不知道你的原文件是什么格式的？权当utf-8吧
仅是思路，不知道对不。

use Encode;
open var,"<a.txt";

foreach (<var>) {
       $_=encode("utf-8",$_);
        print substr(decode("gb2312",$_),1);

}
复制代码