perl 入mysql库 出现字符集乱码

十二12

　　环境:
　　linux                                           en_US.UTF-8
　　perl, v5.8.8
　　mysql-5.1.46                          表字符集:gbk_chinese_cli
　　我的perl脚本是分析一个log日志.然后插入mysql中入库.但是结果很让人不爽.乱码.
　　折腾了很久.弄好了.解决方式如下.
　　在perl连接mysql数据库的时候,设置
　　

• my $dbh = DBI->connect("DBI:mysql:database=statcenterdb;host=127.0.0.1", "user", 'passwd');
  
• $dbh->do("SET NAMES 'gbk'");
  

　　

　　是perl在向mysql插数据的时候用gbk的字符集工作.
　　然后还需要设置perl分析日志后得到解决的字符集
　　

• $_=encode("gbk",decode("utf-8",$_));
  

　　

　　perl5.6以后,内部处理的时候都是用utf-8字符集.所以perl读入文件处理没有问题.
　　但是输出还是utf-8的.可是我需要GBK的才能入库.
　　所以这里要转码.
　　在分析日志的while循环中,每读一行,都进行一次转码.然后在行程sql语句,最后入库.
　　这样就没有乱码了.
　　处理思路记录.以备以后查看.