perl使用DBI和Oracle通信乱码问题

syncpk99

1. #!/usr/bin/perl -w
   
2. 
   
3. USE strict;
   
4. use DBI;
   
5. use Encode;
   
6. 
   
7. my $dbName = 'mytest';
   
8. my $dbUser = 'test';
   
9. my $dbUserPass = 'test123';
   
10. 
    
11. my $dbh = DBI->connect("dbi:Oracle:$dbName", $dbUser, $dbUserPass) or die "can't connect to database " . $DBI::errstr;
    
12. 
    
13. my $hostSql = qq{select hostname,username,password from t_hostserver where name like '生产%'};
    
14. 
    
15. my ($hostname, $username, $passwd);
    
16. my $selStmt = $dbh->prepare($hostSql);
    
17. $selStmt->bind_columns(undef, \$hostname, \$username, \$passwd);
    
18. 
    
19. $selStmt->execute();
    
20. while( $selStmt->fetch() ){
    
21.   print "$hostname\t\t$username\t\t$passwd\n";
    
22. }
    
23. 
    
24. $selStmt->finish;
    
25. $dbh->disconnect;
    

复制代码

使用上面的代码在windows下执行，能够正确查询出数据。但是使用上面的代码在linux下执行，不能查询出数据。通过抓数据包和oracle session中的sql语句，发现sql语句中的“生成”都被替换成了问号。
请问问什么会这样？怎么能让代码在windows和linux下都能运行？

windows和linux下NLS_LANG均设置成了SIMPLIFIED CHINESE_CHINA.ZHS16GBK，和数据库的设置是一致的。
linux下的locale设置如下：
LANG=en_US.utf8
LC_CTYPE="en_US.utf8"
LC_NUMERIC="en_US.utf8"
LC_TIME="en_US.utf8"
LC_COLLATE="en_US.utf8"
LC_MONETARY="en_US.utf8"
LC_MESSAGES="en_US.utf8"
LC_PAPER="en_US.utf8"
LC_NAME="en_US.utf8"
LC_ADDRESS="en_US.utf8"
LC_TELEPHONE="en_US.utf8"
LC_MEASUREMENT="en_US.utf8"
LC_IDENTIFICATION="en_US.utf8"
LC_ALL=

如果我将LANG设置成en_US，会报如下错误：

1. perl: warning: Setting locale failed.
   
2. perl: warning: Please check that your locale settings:
   
3.         LANGUAGE = (unset),
   
4.         LC_ALL = (unset),
   
5.         LANG = "en_US"
   
6.     are supported and installed on your system.
   
7. perl: warning: Falling back to the standard locale ("C").
   

复制代码

这又是为什么啊？

新手提问，还望大家帮忙解惑。谢谢！！

兰花仙子

编码涉及到输入输出环境的方方面面。
为安全起见，你统一用UTF-8就得了。
windows也用UTF-8，用不了就去fuck bill.

syncpk99

windows怎么使用UTF-8？

syncpk99

顶一下！！

apile

应该设定一下environment variable就可以了...去查一下oracle的变量怎麽设定...另外有没有权限改字元...
参考参考下面的讨论..
http://www.programmer-club.com.tw/ShowSameTitleN/oracle/343.html

其实就是client encode与 server encode 不同的问题...
设定一下就好了...
另外看起来你的linux是utf-8，需要用 Encode module 去强迫把输出 转成 utf-8 . 输入转成 oracle db 编码,才能用..

py

回复 3# syncpk99

windows一直都支持UTF-8，notepad默认就支持