Hallo,
ich habe Excel-XLSX-Dateien, die ich mit dem "alten" CPAN-Modul Spreadsheet::XLSX problemlos lesen kann, nicht aber mit den "neueren" CPAN-Modulen Spreadsheet::ParseXLSX und Spreadsheet::Read. Bei den letztgenannten Modulen erhalte ich direkt beim Parsen jeweils die gleiche Fehlermeldung:
Can't call method "first_child" on an undefined value at c:/strawberry/perl/site/lib/Spreadsheet/ParseXLSX.pm line 455.
Excel selber liest die Dateien auch ohne Meldungen ein.
Speichere ich die XLSX-Dateien im alten XLS-Format ab, kann auch Spreadsheet::ParseExcel die Dateien fehlerfrei lesen.
Den Beispielcode habe ich aus CPAN genommen:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
use strict;
use Spreadsheet::ParseXLSX;
my ($file) = @ARGV;
my $parser = Spreadsheet::ParseXLSX->new();
my $workbook = $parser->parse($file);
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();
# print "Row: $row_min $row_max, Col: $col_min $col_max\n";
for my $row ( $row_min .. $row_max ) {
for my $col ( $col_min .. $col_max ) {
my $cell = $worksheet->get_cell( $row, $col );
next unless $cell;
print "Row,Col= ($row, $col)\n";
print "Value=", $cell->value(),"\n";
print "Unformatted=", $cell->unformatted(), "\n";
}
}
}
Spreadsheet::ParseXLSX hat Version 0.16 und Spreadsheet::Read Version 0.58, Perl selbst bei mir V5.18.2.
Wie geht man in einem solchen Fall, wenn der Fehler aus einem CPAN-Modul kommt, am Besten vor?
In der Dokumentation von ParseXLSX.pm steht noch:
=item Worksheets without the C<dimension> tag are not supported
Ich müßte also erst feststellen, ob unsere XLSX-Dateien dieses Flag nicht haben und dann ggf. einen Report einreichen?