perl - 在perl中获取excel工作表的名称

Question

我是编码和 perl 的新手。

我正在尝试通过 Perl 读取 excel 文件中的 excel 工作表的名称

以下是我的代码

#!/usr/local/ActivePerl-5.12/bin//perl -w

use strict;
use Spreadsheet::ParseExcel;

my $FileName = "/Users/labuser/Desktop/TestAutomation/Results.xls";

my $parser   = Spreadsheet::ParseExcel->new();
my $workbook = $parser->parse($FileName);

die $parser->error(), ".\n" if ( !defined $workbook );

for my $worksheet ( $workbook->worksheets() ) {

print $worksheet;

}   

但我无法通过 print $worksheet 获取工作表的名称。请建议我怎样才能得到那个

Answer 1

你需要使用：

print $worksheet->get_name();

代替

print $worksheet

也使用 foreach：

foreach my $worksheet ($workbook->worksheets()) {
   print $worksheet->get_name();
}