Perl脚本将xlsx转换为xml给出错误

Question

我正在尝试使用 Perl 模块将 xlsx 转换为 xml。根据我的要求，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

您在第 23 行关闭了文件句柄 XML，但您还没有在任何地方打开它。

先打开一个文件句柄，然后写入。

这是打开文件进行写入的语法：

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