求高手幫忙，perl處理excel中文

wangjj20

perl菜鳥求助。

現(xiàn)在用perl處理excel的文件，提取出指定的行列的數(shù)據(jù)，摸索了下功能實(shí)現(xiàn)了，但是如果指定的數(shù)據(jù)是中文，print出來的就不對(duì)。不知道如何處理，在線求助。

代碼如下：

1. #!/usr/bin/perl
   
2. use Spreadsheet::Read;
   
3. use Data::Dumper;
   
4. use Spreadsheet::ParseExcel;
   
5. use Spreadsheet::WriteExcel;
   
6. use Encode qw(decode);
   
7. 
   
8. my $soruce_dir      = './excel';
   
9. 
   
10. my $parser   = Spreadsheet::ParseExcel->new();
    
11. my $workbook = $parser->Parse("$soruce_dir/test.xls");
    
12. 
    
13. for my $worksheet ( $workbook->worksheets() ) {
    
14.     my $row=2;
    
15.     my $col1=2;
    
16.     my $cell = $worksheet->get_cell( $row, $col1 );
    
17.        next unless $cell;
    
18. 
    
19. my $stid= $cell->unformatted(), "\n";
    
20. 
    
21. print "$stid\n";
    
22. 
    
23. [color=Red]my $xh=&T($stid);
    
24. 
    
25. print "$xh\n";
    
26.         };
    
27. 
    
28. sub T {
    
29.     my $text = shift;
    
30.     return decode( 'GB2312', $text );
    
31. }[/color]

復(fù)制代碼

試過了GB2312,UTF8,但是中文還是不能正常顯示。


另外excel表格內(nèi)容如下：

laputa73

沒設(shè)format
$Format= $dest_book->add_format();
$Format->set_font(decode("gb2312",'微軟雅黑'));
$dest_sheet->write($LineNum,6,decode("gb2312", 'xxxxx' ),$Format);

iamlimeng

http://www.72891.cn/forum.php?mod=viewthread&tid=1626493

版主的終結(jié)者貼，肯定能終結(jié)你的問題！

wangjj20

回復(fù) 3# iamlimeng


   高手，沒看懂啊。

my $fmt = new MyExcelFormatter(); 這一行之外。
這一行生成了一個(gè)文檔內(nèi)容的轉(zhuǎn)換器（格式化工具），
轉(zhuǎn)換器代碼如下：

這一段不明真相，這段代碼寫在哪的？

wangjj20

回復(fù) 2# laputa73


    我現(xiàn)在就是想取到c3這個(gè)格的值，然后print出來是正常顯示的。。不用寫入新的excel中。

laputa73

讀和寫類似
my $xls = Spreadsheet:arseExcel::Workbook->arse( $file, $fmt );
就是這里要指定$fmt啊
版主那個(gè)文章里面有源碼了阿

wangjj20

回復(fù) 6# laputa73




my $fmt = new MyExcelFormatter(); 這一行之外。
這一行生成了一個(gè)文檔內(nèi)容的轉(zhuǎn)換器（格式化工具），
轉(zhuǎn)換器代碼如下：

這一段不明真相，這段代碼寫在哪的？請(qǐng)指點(diǎn)。

iamlimeng

在程序中引用：

1. use MyExcelFormatter;
   
2. my $fmt = new MyExcelFormatter();
   

復(fù)制代碼

轉(zhuǎn)換器如下：
MyExcelFormatter.pm

1. package MyExcelFormatter;
   
2. 
   
3. use strict;
   
4. use warnings;
   
5. 
   
6. use base qw(Spreadsheet::ParseExcel::FmtDefault);
   
7. 
   
8. use Encode::CN;
   
9. use Encode qw(from_to);
   
10. 
    
11. sub new() {
    
12.     return bless {};
    
13. }
    
14. 
    
15. sub TextFmt( $;$ ) {
    
16.     my $this = shift;
    
17.     my ($value, $code) = @_;
    
18. 
    
19.     if ( defined $code and $code eq 'ucs2' ){
    
20.         from_to( $value, 'ucs2', 'gb2312' );
    
21.     }
    
22.     return $value;
    
23. }
    
24. 
    
25. 1;

復(fù)制代碼

laputa73

要自己寫個(gè)pm文件MyExcelFormatter.pm
，放在perl能找到的地方

wangjj20

我把  
my $cell = $worksheet->get_cell( $row, $col1 );
next unless $cell;
這樣取出來的值放入數(shù)組，再?gòu)臄?shù)組里面提取就能正常顯示了。。

push @p1, $cell->value();
my $stid    = $p1[0];
print "$stid\n";