perl - 如何在perl中从xlsx读取数据

Question

需要一些好人帮助我阅读扩展名为“xlsx”的excel文件，我的脚本适用于“xls”但不适用于“xlsx”，这是我收到错误的代码:Can't call method "worksheet" on an undefined value如果文件是“xlsx”，这里是我的代码:

#!/usr/bin/perl -w

use warnings;
use strict;
use Spreadsheet::ParseExcel;
use Spreadsheet::XLSX;
use Date::Format;

my $filename = "../test.xlsx";
#Parse excel file
my $parser = Spreadsheet::ParseExcel->new();
my $workbook = $parser->parse("$filename");

#Get cell value from excel sheet1 row 1 column 2
my $worksheet = $workbook->worksheet('Sheet1');
my $cell = $worksheet->get_cell(0,1);

# Print the cell value when not blank
if ( defined $cell and $cell->value() ne "") {
    my $value = $cell->value();
    print "cell value is $value \n";
}

Answer 1

对于 .xlsx 文件，Spreadsheet::XLSX 与 Spreadsheet::ParseExcel 非常相似；你需要说:

my $parser = Spreadsheet::XLSX->new();

而不是使用 ParseExcel。