Two things:
- You need to test for the success of your parse call
- You should print the values around each of your conditionals/loops to see why you're not entering them
use strict;
use Spreadsheet::ParseExcel;
my $excel = Spreadsheet::ParseExcel::Workbook->Parse("C:\\au.xls");
die "Parse failed" unless defined $excel;
my $excel_file_url;
#start looping the Excel sheet
foreach my $sheet (@{$excel->{Worksheet}})
{
$sheet->{MaxRow} ||= $sheet->{MinRow};
print "$sheet->{MaxRow}\t$sheet->{MinRow}\n";
foreach my $row ($sheet->{MinRow} .. $sheet->{MaxRow}) {
print "Row: $row\n";
#looping for each row
if ($row > 1) {
#get the file url path from excel sheet at corresponding
+row,+ col 0
my $cell_value=$sheet->{Cells}[$row][0];
$excel_file_url=$cell_value->{Val};
print $excel_file_url;
}
}
}