perl处理excel中的法文等欧美国家语言的时候写入到txt中是问号！

liu6545

大家帮忙看看这个问题：
perl处理excel中的法文等欧美国家语言的时候写入到txt中是问号！

我用perl脚本读取指定excel中的某些字段，然后写入到txt中，相对中文和英文来说都没有问题，但是针对泰文和法文就会有不识别的文字！txt中要么是问号要么就是空格！
请达人们给予启示！谢谢！

1. 
   
2. 
   
3. #printf qq(please input the language\n);
   
4. #$yy = <STDIN>;
   
5. #perl cdma_utf8.pl Chinese strings_Test.xls chinese.brx
   
6. #2008=0928use map to control language
   
7. use Win32::OLE qw(in with);
   
8. use Win32::OLE::Const 'Microsoft Excel';
   
9. use utf8;
   
10. use Unicode::UCD 'charinfo';
    
11. use Encode qw(encode from_to _utf8_off);
    
12. $Win32::OLE::Warn = 3;
    
13. $yy = $ARGV[0];
    
14. chomp $yy;
    
15. $cvs = $ARGV[1];
    
16. $brx =$ARGV[2];
    
17. chomp $cvs;
    
18. chomp $brx;
    
19. printf "$cvs \n";
    
20. printf "$yy \n";
    
21. printf "$brx \n";
    
22. if($yy eq "h"){
    
23.         printf qq(cdma language infile outfile\n);
    
24.         exit;
    
25.         }
    
26. $Excel = Win32::OLE->GetActiveObject('Excel.Application')|| Win32::OLE->new('Excel.Application', 'Quit');
    
27. #$Book = $Excel->Workbooks->Open("$cvs");  
    
28. $Book=$Excel->Workbooks->Open("$cvs");  
    
29. $Sheet = $Book->Worksheets(1);
    
30. $col="1";
    
31. while($col < 20){
    
32.         $shuju = $Sheet->Cells(1,$col)->{'Value'};
    
33.         if($shuju eq "$yy"){
    
34.                 $colnum = "$col";
    
35.                 last;
    
36.                 }
    
37.         else{
    
38.                 $col++;
    
39.                 }
    
40. 
    
41. }
    
42. 
    
43. system qq(del /q $brx);
    
44. open (H,">$brx");
    
45. close H;
    
46. $title = qq(\<\?xml version="1.0" encoding="utf-8"\?\>\n);
    
47. $title1=qq(\<BREWRes Name="$yy" VERSION="1"\>\n);
    
48. $title2=qq(\<Strings Encoding=\"Unicode\"\>\n);
    
49. open (H,">>$brx");
    
50. print H "$title";
    
51. print H "$title1";
    
52. print H "$title2";
    
53. close H;
    
54. #open(CVS,"$cvs");
    
55. $id = "1001";
    
56. $lie = "2";
    
57.         while($lie < 1471){
    
58.         #while($lie < 3){
    
59.                 $guding = $Sheet->Cells($lie,2)->{'Value'};
    
60.         $huoqu =$Sheet->Cells($lie,$col)->{'Value'};
    
61.                         $huoqu =~s/&/&amp;/;
    
62.                         $huoqu =~s/</&lt;/;
    
63.                 $huoqu =~s/>/&gt;/;
    
64. #                if($yy eq Chinese){
    
65. #                        $huoqu =encode('gb2312',$huoqu);
    
66. #                }
    
67. #                else{       
    
68. 
    
69.                 #$huoqu1 =$huoqu;
    
70.                 $huoqu2=Encode::decode('gb2312',$huoqu);
    
71.                 #printf "$huoqu \n";
    
72.                 #$huoqu3 =Encode::encode_utf8($huoqu2);
    
73.                
    
74. #        }       
    
75.                 $neirong = qq(\<String Id="$id" Name="$guding"\>\n);
    
76.                 #$neirong1 = qq(     \<Text\>$huoqu1\</Text\>\n);
    
77.                         $neirong2 = qq(     \<Text\>$huoqu2\</Text\>\n);
    
78.                                 #$neirong3 = qq(     \<Text\>$huoqu3\</Text\>\n);
    
79.                 $neirong3 = qq(        \</String\>\n);
    
80.                 open (H,">>$brx");
    
81. print H "$neirong";
    
82. #print H "$neirong1";
    
83. print H "$neirong2";
    
84. print H "$neirong3";
    
85. close H;
    
86.                 ++$lie;
    
87.                 $id++;
    
88.         }
    
89.         $final=qq(\</Strings\>\n);
    
90.   $final1=qq(        \</BREWRes\>\n);
    
91.                         open (H,">>$brx");
    
92. print H "$final";
    
93. print H "$final1";
    
94. close H;
    
95. $Book->Close;
    
96. #$Book->Quit();
    
97.         exit;
    
98.        
    
99. 
    
100. 
     
101. 
     
102. 
     
103. 
     

复制代码

ziggler

用UTF编码了马？

liu6545

用了！

ziggler

你的环境 支持UTF字符集吗？

liu6545

支持！用txt直接建立unicode的文档copyexcel的东西没有问题的！

ziggler

日文和亚洲 UTF-8 语言环境不支持 CTL (4300239)

en_US.UTF-8 和欧洲 UTF-8 语言环境已经实现了用于输入希伯来文、阿拉伯文和泰文的复杂文本语言 (CTL) 支持，但 ja_JP.UTF-8、ko.UTF-8（又称为 ko_KR.UTF-8）、zh.UTF-8（又称为 zh_CH.UTF-8）和 zh_TW.UTF-8 等语言环境不支持 CTL。

http://docs.sun.com/app/docs/doc ... 26t?l=zh&a=view

liu6545

但是txt中已经可以看到正常的法文，
而且excel中也可以看到！
用ibm的范例脚本也可以输出法文，
但用perl读入excel就会有问题！
有没有达人处理过这样的问题的？

ziggler

原帖由 liu6545 于 2008-12-1 14:50 发表
但是txt中已经可以看到正常的法文，
而且excel中也可以看到！
用ibm的范例脚本也可以输出法文，
但用perl读入excel就会有问题！
有没有达人处理过这样的问题的？

看看有用吗？

功能丰富的 Perl: Perl 增强了对 Unicode 的支持

学习如何使用 Perl 5.8.6 中的 Unicode 特性
        developerWorks
       

               

样例代码

级别： 初级

Teodor Zlatanov (tzz@bu.edu), 程序员, Northern Light, Inc.

2005 年 11 月 07 日

    尽管到 Perl 6 中才宣称完全支持 Unicode，但是在 Perl 5.8.6 中内嵌的对 Unicode 的支持已经足以开始编写本地化的应用程序了。Ted 使用自己所钟爱的编辑器 Yudit，介绍了 Perl 如何读取、解释和处理 UTF-8 编码的 Unicode。

从 5.6.0 版本发布以来，Perl 已经发生了极大的变化。Perl 6 项目是在一个名为 Parrot 的解释器（它内嵌了对 UTF-8 和很多其他与 Unicode 有关的特性的支持）的基础上构建和运行的（我知道这种说法太过简单，但是本文后面马上要介绍的内容可以确保您并不需要担心这些细节）。因此，Perl 6 从一开始就非常重视对 Unicode 的支持。（所以，在 Perl 6 发布时我还会撰写另外一篇有关 Perl 6 的 Unicode 文章。我当然希望这很快就可以实现。到时候我就不会只是这么简单地提一下就算完了！）

在撰写本文时，我参考的是 5.8.6 版本，但是目前最新版本是 5.8.7。我并没有对 CPAN 的任何 Unicode 模块进行测试 —— 尽管这些模块的确存在，而且也可以很好地工作 —— 因为我们在本文中重点讨论的是 Perl 中内嵌的对 Unicode 的支持特性。因此，我所测试的目标是 Perl 的 Unicode（UTF-8 编码）的读取、解释和处理能力。在本文中我也并没有讨论 Unicode、UCS 和 UTF-8 编码的内容 —— 在 参考资料 中可以找到介绍这个主题的丰富资源。

我喜欢使用 Yudit 编辑器和 rxvt（Unicode 版本）的终端来进行有关 Unicode 的工作。（我一直在使用 rxvt，而不是 xterm；它们都可以很好地处理一些简单的事情，但是从我的观点来看，rxvt 要更好些，因为它可以使用多种字体来显示不同的字符集。）

http://www.ibm.com/developerworks/cn/linux/l-cpunicode/

liu6545

我参考的就是ibm的这个帖子！
但我写的读取excel的代码你看了吗？
写入到txt中就是不行！

liu6545

自己顶！期待答案！