perl查询mysql乱码

abcfy2

我不懂perl，生产环境需要一个迁移过程是perl脚本。
来自于这里：http://foaa.de/old-blog/2010/04/ ... -mantis-to-redmine/

主要问题出自这段代码

1. # open dbi
   
2. my $dbix_mantis = DBIx::Simple->connect(
   
3.     'DBI:mysql:database='. $opt{ mantis_db_name }. ';host='. $opt{ mantis_db_host },
   
4.     $opt{ mantis_db_login }, $opt{ mantis_db_pass },
   
5.     { RaiseError => 1 }
   
6. );
   
7. my $dbix_redmine = DBIx::Simple->connect(
   
8.     'DBI:mysql:database='. $opt{ redmine_db_name }. ';host='. $opt{ redmine_db_host },
   
9.     $opt{ redmine_db_login }, $opt{ redmine_db_pass },
   
10.     { RaiseError => 1 }
    
11. );

复制代码

老外写的东西从来不考虑编码问题，到我这边迁移mantis到redmine的时候，出现了查库的乱码：

1. *** Stati ***
   
2. 
   
3. Mantis: Status
   
4.   new                  :  10
   
5.   feedback             :  20
   
6.   acknowledged         :  30
   
7.   confirmed            :  40
   
8.   assigned             :  50
   
9.   resolved             :  80
   
10.   closed               :  90
    
11. 
    
12. Redmine: Status
    
13.   ??                   :   1
    
14.   ???                  :   2
    
15.   ???                  :   3
    
16.   ??                   :   4
    
17.   ???                  :   5
    
18.   ???                  :   6
    
19. 
    
20. Status translation
    
21.     Mantis               ->     Redmine            
    
22. 10:new                  ->   1:??                  
    
23. 20:feedback             ->   4:??                  
    
24. 30:acknowledged         ->   1:??                  
    
25. 40:confirmed            ->   1:??                  
    
26. 50:assigned             ->   2:???                 
    
27. 80:resolved             ->   3:???                 
    
28. 90:closed               ->   3:???            
    

复制代码

中文这里都乱码了，翻了下老外给出的perl脚本，搜索到这段代码，猜测是没有加入UTF8编码导致，应该如何修改这段代码呢？
mysql的编码是UTF8的

grshrd49

你是在win还是linux下
在win下用cmd 显示的话 就encode gbk吧

abcfy2

回复 2# grshrd49


    linux下，代码如何改呢？我没学过perl，临时迁移才用到这个脚本的，能否告知具体如何修改呢？
mysql的四个编码都是UTF-8的

laputa73

$dbh->exec("SET NAMES 'UTF8'")  ?

abcfy2

回复 4# laputa73


    Can't locate object method "exec" via package "DBIx::Simple" at ./mantis2redmine.pl line 204.

laputa73

execute
我从php代码里面贴过来的,稍微做一下对应啦

我们以前的perl代码里面似乎也没有特别设置.
很久不用了.

bikong0411

client和server和数据库编码一致即可