&extract_data();
sub extract_data()
{
my $parsedata = Spreadsheet::ParseExcel->new();
my $workbook_data = $parsedata->parse('test.xls');
for my $worksheet1 ( $workbook_data->worksheet(0) )
{
for my $col ($col_min .. $col_max)
{
my $cell = $worksheet1->get_cell( 0, $col );
if($p_name eq $cell)
{
print("Done");
}
}
}
}
when i run the code it give me (
Can't call method "worksheet" on an undefined value at D:\Perl\Xls_han
+dling.pl line 110, <STDIN> line 6.
) error.
And if i try to close parser i.e. $parser -> close() it says (
Can't call method "worksheet" on an undefined value at D:\Perl\Xls_han
+dling.pl line 110, <STDIN> line 6.
)
|