Reading and printing an XLSX file

[jsuresh]

Hi Team, I'm trying to read an XLSX file and write it as XLSX file. I can read it but unable to print it as a new XLSX file. I have also used the required module XLSX::writer but still it is now allowing me to create a new xlsx file. I also need to to check for the values starting from 0.00 and replace it as '0.00'(just wanted to add a single quotes to it). please provide us a solution. It is not allowing me to proceed further.

Thanks,

use Spreadsheet::XLSX;
my $excel = Spreadsheet::XLSX -> new ('/tmp/temp.xlsx');
print $excel;
my @array;
my $workbook = Excel::Writer::XLSX->new( 'perl.xlsx' );
#my $FILENAME="/tmp/Newfile.xls";
my $workbook = Spreadsheet::WriteExcel->new("$FILENAME");
my $worksheet1=$workbook->addworksheet("Worksheet1");
$worksheet1->write( "A1", "Hi Excel!" );
foreach my $sheet (@{$excel -> {Worksheet}}) {

       printf("Sheet: %s\n", $sheet->{Name});

       $sheet -> {MaxRow} ||= $sheet -> {MinRow};

        foreach my $row ($sheet -> {MinRow} .. $sheet -> {MaxRow}) {

               $sheet -> {MaxCol} ||= $sheet -> {MinCol};

               foreach my $col ($sheet -> {MinCol} ..  $sheet -> {MaxC
+ol}) {

                       my $cell = $sheet -> {Cells} [$row] [$col];

                       if ($cell) {
                           printf("( %s , %s ) => %s\n", $row, $col, $
+cell -> {Val});
                           my $temp=$cell->{Val};
                           $worksheet1->write($row,$col,$cell -> {Val}
+);
#                          push(@array,$temp);
                          # $sheet->write($row,$col,"CHECK");
                       }

               }

       }
last

2019-03-30 Athanasius removed paragraph tags from code and added code tags