在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(); 
}