use strict;
use Spreadsheet::ParseExcel;
my $oBook = Spreadsheet::ParseExcel::Workbook->Parse('first.xls');
if ( ( ! $oBook ) ||
( ! defined( $oBook->{Worksheet} ) ) )
{
die( "Cannot parse first spreadsheet" );
}
my $sheetone = $oBook->Worksheet('gendata') ||
die( "No such worksheet gendata" );
####
my $oBook2nd=Spreadsheet::ParseExcel::Workbook->Parse('second.xls');
if ( ( ! $oBook2nd ) ||
( ! defined( $oBook2nd->{Worksheet} ) ) )
{
die( "Cannot parse second spreadsheet" );
}
my $sheettwo = $oBook->Worksheet('gensearch') ||
die( "No such worksheet gensearch" );
##
##
for ( my $row = 0; $row < 10; $row++ ) {
my $search = qr/$sheettwo->{Cells}[$row][0]->{Val}/;
my $data = $sheetone->{Cells}[$row][0]->{Val};
if ( $data =~ m/$search/ ) {
printf( "Column A Row %d matches\n",
( $row + 1 ) );
}
}