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