错误使用电子表格:: ParseExcel的

Question

当编译下面的代码时，我得到2个错误

global symbol "$parser" requires explicit package name at line 8 
global symbol "$xls" requires explicit package name at line 9 

我从http://www.ehow.com/how_7352636_convert-xls-csv-perl.html得到上面的代码，并使用安装在Excel的模块：cpan Spreadsheet::ParseExcel Spreadsheet::XLSX Spreadsheet::Read

什么原因导致错误？

Answer 1

这些错误表示您正在使用strict，但您没有声明my的某些变量。例如，您声明$xmlprser，但后来您尝试使用$parser，但未声明。您复制的代码有错误。

一个更好的地方，以获得代码源本身：Spreadsheet::ParseExcel

尝试：

my $parser = Spreadsheet::ParseExcel->new(); 
my $xlsbook = $parser->parse('xsl_test.xls'); 
my $xls = $xlsbook->worksheet(0);