如何使用perl解析excel2007

如何使用perl解析excel2007  

 

前两天研究了用Spreadsheet::ParseExcel 解析excel 。但这个模块只支持2003及一下的文件。

今天又继续研究了解析2007的方法。

首先安装包

view plain copy to clipboard print ?

1. Archive::Zip --  1.30  
2. Compress-Raw-Zlib-2.026  

Archive::Zip -- 1.30 Compress-Raw-Zlib-2.026

这两个依赖包安装完毕之后，就用到主要的包：Spreadsheet::XLSX

解析的时候，同样遇到中文的问题。这时需要用use Encode 实现从 utf8 -> gbk(gb2312) 的转换。

代码基本是抄官方文档的。 我的excel文件就一个sheet。

一共两行（第一行是title），每行三列；这样的正规文件没发现问题。

整个代码如下

view plain copy to clipboard print ?

1. use strict;  
2. use warnings;  
3. use Spreadsheet::XLSX;  
4. use Encode;  
5. #my $converter = Text::Iconv -> new ("utf-8", "windows-1251");  
6. #my $excel = Spreadsheet::XLSX -> new ('test.xlsx', $converter);  
7. my $excel = Spreadsheet::XLSX -> new ('test.xlsx');  
8. foreach my $sheet (@{$excel -> {Worksheet}}) {  
9.         printf("Sheet: %s\n", $sheet->{Name});  
10.         $sheet -> {MaxRow} ||= $sheet -> {MinRow};  
11.         foreach my $row ($sheet -> {MinRow} .. $sheet -> {MaxRow}) {  
12.                 $sheet -> {MaxCol} ||= $sheet -> {MinCol};  
13.                 foreach my $col ($sheet -> {MinCol} ..  $sheet -> {MaxCol}) {  
14.                         my $cell = $sheet -> {Cells} [$row] [$col];  
15.                         if ($cell) {  
16.                                 my $a = $cell->{Val};  
17.                                 $a = encode("gbk", decode("utf8", $a));  
18.                                 #printf("( %s , %s ) => %s\n", $row, $col, $a);  
19.                                 printf("$a ");  
20.                         }  
21.                 }  
22.                 print "\n"; ## one row over  
23.         }  
24. } 
    
25. 本文转自：http://blog.csdn.net/Aylazhang/archive/2010/04/11/5471074.aspx