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 $!;

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

1 个答案: