环境:

linux                                           en_US.UTF-8

 perl, v5.8.8

mysql-5.1.46                          表字符集:gbk_chinese_cli

 

我的perl脚本是分析一个log日志.然后插入mysql中入库.但是结果很让人不爽.乱码.

折腾了很久.弄好了.解决方式如下.

 

在perl连接mysql数据库的时候,设置

 
  
  1. my $dbh = DBI->connect("DBI:mysql:database=statcenterdb;host=127.0.0.1", "user", 'passwd');  
  2. $dbh->do("SET NAMES 'gbk'"); 
 
  
 是perl在向mysql插数据的时候用gbk的字符集工作.
 
  
 
 
  
然后还需要设置perl分析日志后得到解决的字符集
 
  
 
  
  1. $_=encode("gbk",decode("utf-8",$_));  
 
  
 perl5.6以后,内部处理的时候都是用utf-8字符集.所以perl读入文件处理没有问题.
 
  
但是输出还是utf-8的.可是我需要GBK的才能入库.
 
  
所以这里要转码.
 
  
在分析日志的while循环中,每读一行,都进行一次转码.然后在行程sql语句,最后入库.
 
  
这样就没有乱码了.
 
  
 
 
  
处理思路记录.以备以后查看.