perl连接sql server，出现乱码

拖拉机商人

hi，求助。。。。
客户端：A, 操作系统：windows2003，软件：安装perl，版本：5.14，UE
服务端：B,操作系统：windows2003，数据库：sql server2005，字符集：GB2312
我通过A去连接B，编码是在UE里面完成的，连接成功后，从数据库端拿出来的数据，中文显示显示乱码。
请问各位，有没有碰到类似的问题，怎么设置才能解决这个问题
#!c:\perl\bin\perl
use DBI;
use Encode;
use Encode::CN;
#use utf8;
#use open ":encoding(gbk)", ":std";
my $DSN = "driver={SQL Server};Server=B;Database=db;UID=usernameWD=password";
my $dbh=DBI->connect("DBI:ODBCDSN" or die "couldn't open database: DBI->errstr";
my @FILE = "select * from  where emp_id = '9999'";
my $sth=$dbh->prepare("@FILE" or die "Couldn't prepare statement: DBI->errstr";
$sth->execute();
$sth->dump_results();
$sth->finish();
$dbh->disconnect();

这个select出来的数据，在服务器端看到的中文是正常的。

ttcn_cu

flw的一个帖子
http://bbs.chinaunix.net/thread-1626493-1-1.html



编码没有万能的，中文就那么几种，把数据存为文件，用notepad++查看是什么编码。
这段代码我也用过，我主要是用utf-8
my $username=Cava:ackager::UserName;
my $enc=guess_encoding($username,qw(gbk gb2312 utf8 cp936 euc-cn));
$username = decode($enc,$username);

拖拉机商人

谢谢，我继续研究，不过暂时还是乱码中，纠结