在Perl中获取excel工作表的名称

Question

我是一个编码和Perl的新手。

我想读一个Excel Excel工作表的名称通过Perl的

以下文件是我的代码

#!/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; 

} 

，但我无法通过打印$工作表，以获取工作表的名称。 请建议我如何可以得到

Answer 1

你需要使用：

print $worksheet->get_name(); 

代替

print $worksheet 

而且使用的foreach：

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