PERL 中 ParseExcel 兼容性到底怎么样。

都说Perl中的ParseExcel很厉害，而且可以跨平台。最重要的是，与OLE的库相比，使用这个库的时候，可以不用关闭EXCEL正常使用。

一般用这个库读取小文件很有用，一般小型文件，用它都有效。但是这个库真的可以完全支持微软的Excel吗？

测试结论是可以，但最多只能完美读出Excel4.0的xlw格式，连Excel5.0格式都不能完全读出！

?

?

测试用代码：

###ParseExcel.pl测试例子。

#!/usr/bin/perl

use strict;
use Spreadsheet::ParseExcel;
use MyExcelFormatter;
?

my $parser?? = Spreadsheet::ParseExcel->new();
my $fmt = new MyExcelFormatter();
my $workbook = $parser->parse('test1.xls',$fmt);

if ( !defined $workbook ) {
??? die $parser->error(),"./n";
}
for my $worksheet ( $workbook->worksheets() ) {

??? my ( $row_min,$row_max ) = $worksheet->row_range();
??? my ( $col_min,$col_max ) = $worksheet->col_range();

??? for my $row ( $row_min .. $row_max ) {
??????? for my $col ( $col_min .. $col_max ) {

??????????? my $cell = $worksheet->get_cell( $row,$col );
??????????? next unless $cell;
??????#if($cell->value()=~m/锋/){
??????????? ?print "Row,Col??? = ($row,$col)/n";
??????????? ?print "Value?????? = ",$cell->value(),?????? "/n";
??????????? ?print "/n";
??????????? #}
??????? }
??? }
}

###END

?

###一个显示中文的库,放在lib/下

###MyExcelFormatter.pm

package MyExcelFormatter;

use strict;
use warnings;

use base qw(Spreadsheet::ParseExcel::FmtDefault);

use Encode::CN;
use Encode qw(from_to);

sub new() {
??? return bless {};
}

sub TextFmt( $;$ ) {
??? my $this = shift;
??? my ($value,$code) = @_;

??? if ( defined $code and $code eq 'ucs2' ){
??????? from_to( $value,'ucs2','gb2312' );
??? }
??? return $value;
}
1;

###END

测试文件就不传了。你们可以自己用一些在XLS里插入OLE对象的文件试一试就知道了。