nicht angemeldet
Hallo!
So, nachdem mein PC jetzt wieder einigermaßen so ist das man damit arbeiten kann habe ich mich doch mal direkt daran gemacht.
Aber schon das parsen funktioniert leider nicht. Ich habe genau das Beipiel von http://search.cpan.org/author/KWITKNR/Spreadsheet-ParseExcel-0.2602/ParseExcel.pm verwendet, das sieht bei mir wie folgt aus:
#!/usr/bin/perl
use strict;
use Spreadsheet::ParseExcel;
print "Content-Type: text/html\n\n";
my $oExcel = new Spreadsheet::ParseExcel;
#1.1 Normal Excel 2000
my $oBook = $oExcel->Parse('test.xls');
my($iR, $iC, $oWkS, $oWkC);
print "FILE :", $oBook->{File} , "\n";
print "COUNT :", $oBook->{SheetCount} , "\n";
print "AUTHOR:", $oBook->{Author} , "\n";
for(my $iSheet=0; $iSheet < $oBook->{SheetCount} ; $iSheet++) {
$oWkS = $oBook->{Worksheet}[$iSheet];
print "--------- SHEET:", $oWkS->{Name}, "\n";
for(my $iR = $oWkS->{MinRow} ;
defined $oWkS->{MaxRow} && $iR <= $oWkS->{MaxRow} ; $iR++) {
for(my $iC = $oWkS->{MinCol} ;
defined $oWkS->{MaxCol} && $iC <= $oWkS->{MaxCol} ; $iC++) {
$oWkC = $oWkS->{Cells}[$iR][$iC];
print "( $iR , $iC ) =>", $oWkC->Value, "\n" if($oWkC); # Formatted Value
print "( $iR , $iC ) =>", $oWkC->{Val}, "\n" if($oWkC); # Original Value
}
}
}
Wenn jetzt _keine_test.xls im selben Verzeichnis liegt wird
FILE : COUNT : AUTHOR:
ausgegeben, wenn aber eine Excel2000 Datei im Verzeichnis liegt, dann bleibt die Seite leer! NIX! gar nix.
Wie kommt das? Das Modul ist jedenfalls verfügbar, nur die PERL Version ist etwas älter, Version 5.00503
Hat jemand ne Idee was das sein könnte? Ich habe mehrere Dateien ausprobiert, auch eine open-office Export Datei.
Grüße
Andreas