Perl中检测文件编码
时间：2008-12-24 来源：fall_bernana
<META content=Word.Document name=ProgId> <META content="Microsoft Word 11" name=Generator> <META content="Microsoft Word 11" name=Originator><LINK href="file:///C:%5CDOCUME%7E1%5CHP%5CLOCALS%7E1%5CTemp%5Cmsohtml1%5C01%5Cclip_filelist.xml" rel=File-List> <STYLE> </STYLE>
一个脚本用于分析应用程序的日志,但是在这些日志文件中,有的编码是utf-8的,有的编码是gbk的.对于utf-8的日志文件,需要将内容转换成gbk的编码,这样看到的中文才不至于乱码:
因此,在perl脚本中加入以下行判断日志内容,如是不是gbk的编码,就对其转码:
$line=encode ("gbk",decode("utf-8",$line)) unless (detect($line) =~ /gb/);
这里用到的模块有:
use Encode;
use Encode::CN;
use Encode::Detect::Detector;
相关阅读 更多 +
