Question

I have a perl script read Excel file and parse using a perl module “Spreadsheet::ParseExcel::Simple; what I want is my script to read only one tab instead of reading all tabs on the spread sheet. here what looks like the portion of the script.

# ### Use a Spreadsheet CPAN module for parsing Excel spreadsheet

require Spreadsheet::ParseExcel::Simple;
my $xls = Spreadsheet::ParseExcel::Simple->read('/opt/test.xls');

$Output_Circuit_file      = "/opt/result.text";

############################################################################
$err_idx = 0;
$out_idx = 0;
@date_var = localtime;

$date = sprintf("%02d",($date_var[4] + 1)) . '/' . sprintf("%02d",$date_var[3]) . '/' . ($date_var[5] + 1900);

## ############# 

foreach my $sheet ($xls->sheets) {
   while ($sheet->has_data) {
       my @words = $sheet ->next_row;
       $ctr++;

anyone can help, where I can modify to read my script read only tab “A” and ignore everything else.

Answer 1

add the following lines and read specific worksheet name

   $sheetname= $sheet->{sheet}->{Name}; 
   if ($sheetname !~ 'Test') { next; }

Thanks all for your effort to help me!!