我在windows active Perl中编写了这段代码来读取Excel-XML文件 执行相同的代码有时会给我上面提到的错误 当我继续运行它。有时它会跑,然后又会升起 同样的错误。
use strict;
use warnings;
use Spreadsheet::Reader::ExcelXML;
my $workbook = Spreadsheet::Reader::ExcelXML->new( file=>'perl.pl', group_return_type => 'value',);
if ( !$workbook->file_opened ) {
die $workbook->error(), ".\n";
}
my $worksheet = $workbook->worksheet( 'Sheet5' );
my $value;
while( !$value or $value ne 'EOF' ){
$value = $worksheet->fetchrow_arrayref;
my @a=@{$value};
Function(@a);
}
sub Function {
my @rows =@_;
print "@rows\n";
}