Aaaalso,

die Datei ist eine häßliche Exceltabelle ;-) , und für den Code geb ich mal nen Ausschnitt mit. Ich hoffe, der reicht.


#==============================================================================
# Spreadsheet::ParseExcel::Cell
#==============================================================================
package Spreadsheet::ParseExcel::Cell;
require Exporter;
use strict;
use vars qw($VERSION @ISA);
@ISA = qw(Exporter);

sub new($%) {
my($sPkg, %rhKey)=@_;
my($sWk, $iLen);
my $oThis = \%rhKey;

bless $oThis, $sPkg;
}

sub Value($){
my($oThis)=@_;
return $oThis->{_Value};
}


Der interessante Abschnitt ist wohl unten, wo der Wert zurückgegeben wird. Nebenbei: der Code ist nicht von mir...

Danke schon mal!