Select Code to Download

Select or download this

 
foreach my $MIS_SHEET (@tables)
{
    # Get the first worksheet.
    my $sheet = $template->worksheet($MIS_SHEET);

Select or download this

my $sth = $dbh->prepare("SELECT * from $MIS_SHEET"); #Getting data fro
+m table
    $sth->execute() or die $DBI::errstr;
...
            ++$col;
        }
    }

Select or download this

+-----------------------+
| Tables_in_MIS_Reports |
...
+------------+-------+---------+---------+--------------+-----------+-
+--------------+--------------+-------------+----------+
6 rows in set (0.00 sec)

Select or download this

Use of uninitialized value $iC in array element at /root/perl5/lib/per
+l5/Spreadsheet/ParseExcel/SaveParser/Workbook.pm line 281.
Use of uninitialized value $iC in numeric le (<=) at /root/perl5/lib/p
+erl5/Spreadsheet/ParseExcel/SaveParser/Workbook.pm line 274.
...
Use of uninitialized value $iC in array element at /root/perl5/lib/per
+l5/Spreadsheet/ParseExcel/SaveParser/Workbook.pm line 281.
Use of uninitialized value $iC in numeric le (<=) at /root/perl5/lib/p
+erl5/Spreadsheet/ParseExcel/SaveParser/Workbook.pm line 274.
Use of uninitialized value $iC in array element at /root/perl5/lib/per
+l5/Spreadsheet/ParseExcel/SaveParser/Workbook.pm line 281.