在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 $工作表获取工作表的名称。 请建议我怎样才能得到

Answer 1

你需要使用：

print $worksheet->get_name();

取代

print $worksheet

也使用foreach：

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