Perl-скрипт для конвертации xlsx в xml, выдающий ошибку

Question

Я пытаюсь конвертировать xlsx в xml используя модули Perl. Согласно моему требованию скрипт Perl должен .xlsx файл и преобразовать в .xml формат точно. При компиляции моего кода я получаю сообщение об ошибке:

print() on unopened filehandle XML at xlsxtoxml.pl.

Код:

#!/usr/bin/perl
use strict;
use warnings;
use Spreadsheet::ParseExcel;
use XML::Writer;
use Spreadsheet::XLSX;
 my $excel = Spreadsheet::XLSX -> new ('Template.xlsx');

 foreach my $sheet (@{$excel -> {Worksheet}}) {
         $sheet -> {MaxRow} ||= $sheet -> {MinRow};
         foreach my $row ($sheet -> {MinRow} .. $sheet -> {MaxRow}) {
                $sheet -> {MaxCol} ||= $sheet -> {MinCol};
                foreach my $col ($sheet -> {MinCol} ..  $sheet -> {MaxCol}) {
                        my $cell = $sheet -> {Cells} [$row] [$col];
                        if ($cell) {
                           #print XML $cell -> {Val};
                        }
                        unless($col == $sheet -> {MaxCol}) {print XML ",";} 
                }
                unless( $row == $sheet -> {MaxRow}){print XML "\n";}
         }
  }
 close(XML);
my $xml_obj = XML::Writer->new(); 
    $xml_obj->print_xml("outTemplate.xml");

Answer 1

Вы закрыли дескриптор файла XML в строке 23, но вы еще нигде не открыли.

Сначала откройте дескриптор файла, а затем напишите.

Это синтаксис, чтобы открыть файл для записи:

open my $fh, ">" $filename or die $!;