$excelRowCounter=0;
my $parser = Spreadsheet::ParseExcel->new(
CellHandler => \&excelCellhandle
+r,
NotSetCell => 1,
Parameters => "XXXXXXXXX"
);
$parser->parse($currentFile);
sub excelCellhandler
{
# my $workbook = $_[0];
# my $sheet_index = $_[1];
my $row = $_[2];
# my $col = $_[3];
my $cell = $_[4];
my $q;
if($excelRowCounter == $row)
{
$q = $cell->unformatted();
$text .= $v;
}
else
{
if(length($text) > 2097152)
{
do something
return
}
$excelRowCounter = $row;
$q = $cell->unformatted();
$text .= $v;
}
}
|