Quote

Vielleicht ist folgende Seite für dich ganz interessant:
http://perlmonks.org/index.p....=379743

Der Artikel erklärt deine Probleme und stellt Lösungen vor.

Code
#!/usr/bin/perl -w
use strict;
use Spreadsheet::ParseExcel;

my $parse_excel = Spreadsheet::ParseExcel->new(
CellHandler => \&cell_handler,
NotSetCell => 1,
);

my $workbook = $parse_excel->Parse('file.xls');

sub cell_handler {
my($workbook, $sheet_index, $row, $col, $cell) = @_;

# Skip some worksheets and rows (more efficiently).
if ($sheet_index > 2 and $row > 9) {
$workbook->ParseAbort(1);
return;
}

# Do something with the formatted cell value
print $cell->{_Value}, "\n";
}

^ letztes Beispiel aus dem Artikel

MfG