perl 字符集转换的问题

[jungle_1978]

用SOAP::Lite包调webService接口,得到utf8编码的xml文件,
用XML::TreeBuilder取其中的一个字段
$returnDetail=$tree->find_by_tag_name('ReturnDetail')->as_text;
$returnDetail=encode('euc-cn',$returnDetail);
print $returnDetail;
这样在cmd打印的是正确的中文字串
但在之后执行如下的语句把结果写入数据库之后,看到的却是乱码
$mSql=qq{update $partTab set returndetail='$returnDetail' where ou_num=$Code_Numb};
$mSth =$dbh->prepare($mSql);
$mSth->execute;
$dbh->commit();
请达人们指点下！

[jungle_1978]

字符集的问题我是这么解决的：
在cmd下它是euc-cn，往数据库写的时候，转换成nls_lang指定的字符集.
下面的问题帮我解决下啊，也都困扰了我很久了。

BTW:我是用下面的方法，把得到的xml串存为文件的的，但老是报
Wide character in print at SubProcess.pl line 115.的告警信息，
请问是什么原因？

open ALOG, ">$file" or die $!;
print ALOG qq{$dat};
close ALOG;

[iambic]

你把XML保存成文件时用的是什么编码？如果是utf-8就试试：

use encoding "utf-8";

[iambic]

我升星星了……谢谢楼主！我等这天等了很久了！

[iambic]

那先试下utf-8吧。你用的什么数据库？returndetail的数据类型是什么？

[jungle_1978]

我用的是oracle数据库。突然想起来原因出在哪里了
是oracle数据库的NLS_LANG环境变量的问题.
还是感谢iambic.
BTW:我是用下面的方法，把得到的xml串存为文件的的，但老是报
Wide character in print at SubProcess.pl line 115.的告警信息，
请问是什么原因？

open ALOG, ">$file" or die $!;
print ALOG qq{$dat};
close ALOG;

[iambic]

加上：

use encoding "utf-8";

或者：

use encoding "euc-cn";

试试。