#!/usr/bin/perl  

use CGI;
use CGI::Carp qw(fatalsToBrowser);
use strict;
use Spreadsheet::ParseExcel;
use Spreadsheet::XLSX;
use Spreadsheet::ParseExcel::Font; 
use Spreadsheet::ParseExcel::Format; 
use Data::Dumper;


print "Content-type: text/html\n\n";
 
my @instr;
my @instrgr;
my $formt= Spreadsheet::ParseExcel::Format->new();
    my $workbook = Spreadsheet::XLSX -> new ('Hole Filling.xlsx');

    if ( !defined $workbook ) {
        die  $workbook.".\n";
    }

    for my $worksheet ( $workbook->worksheets() ) {
    	$worksheet->{Name} =~ / Automated TP$/ or next;
		print "<br><br>".$worksheet->{Name}."<br>";
        my ( $row_min, $row_max ) = $worksheet->row_range();
        my ( $col_min, $col_max ) = $worksheet->col_range();

        
       for my $col ( $col_min .. $col_max ) {
       	   print "<br>";
			for my $row ( $row_min .. $row_max ) {
                my $cell = $worksheet->get_cell( $row, $col );
                next unless $cell;
                if ($col == 1){
                	$formt = $cell->get_format();
                	$instr[$row] = $cell->value(); 
                	$instrgr[$row] = $cell->value(); 
                	for my $tcol (4 .. $col_max){
                		my $tcell = $worksheet->get_cell( $row, $tcol );
               				 next unless $tcell;
               			$instrgr[$row] = $instrgr[$row - 1];
               			last;
                	}
                
                } else {

                if ($cell->value() =~ /^X$/i)
                {
                	print "In ".$instrgr[$row]." set ".$instr[$row];
                	}
                	else {
                print  $cell->value();
                	}
                
                print "<br>";
                }
            }
        }
    }