my @TEMP;
sub cell_handler {
my $workbook = $_[0];
my $sheet_index = $_[1];
my $row = $_[2];
my $col = $_[3];
my $cell = $_[4];
if ($sheet_index == 1) {
$TEMP[$row][$col] = $cell;
}
elsif ($sheet_index == 2) {
print $TEMP[$row][$col]->value(),"\n";
print $cell->value(),"\n";
}
}
*However*, this relies on the parser seeing all the cells in sheet 1 before seeing sheet 2. (I don't know if that's always going to happen or not.) You could expand this code to store away *all* values and process them afterwards, but then you wouldn't need a cell_handler function, either, as you could loop over the data after the sheets are parsed.
If the parsing order isn't guaranteed, you'll have to figure out how you would do it manually if someone were handing you cells at random, and write the code to do it that way. (You might have noticed a tagline by one of our monks to that effect.)
...roboticus
When your only tool is a hammer, all problems look like your thumb. |