使用Spreadsheet::Read在perl中迭代Excel文件
使用Spreadsheet::Read在perl中迭代Excel文件
提问于 2013-05-16 21:51:10
我正在尝试解析excel文件中的数据(可以是xlsx或xls)。
我已经知道我想要获取哪些工作表，所以我想遍历它们并从中提取数据。
我的代码：
#!/usr/bin/perl -w
use strict;
use warnings;
use Spreadsheet::Read;
use Getopt::Long;
my $inputfile;
GetOptions (
'i=s' => \$inputfile,
);
die 'missing input file' unless $inputfile;
my $workbook = ReadData ($inputfile, debug => 9);
my @worksheets = (1);
foreach (@worksheets) {
my $sheet = $workbook->[$_-1];
next unless $sheet;
my ( $row_min, $row_max ) = $sheet->row_range();
my ( $col_min, $col_max ) = $sheet->col_range();
for my $row ($row_min .. $row_max) {
}
}然而，我得到了以下信息：
Can't call method "row_range" on unblessed reference at perl/parse_test.pl line 22.我是perl的新手，还不了解哈希、数组和引用的错综复杂。
回答 2
Stack Overflow用户
回答已采纳
发布于 2013-05-16 22:32:19
首先，如果您不需要数组，请不要使用它，
my @sheet = $workbook->[$_-1]; => my $sheet = $workbook->[$_-1];
如果仍然发生错误，则打印检查$sheet实例的$sheet引用。
next unless $sheet;
print ref($sheet), "\n";看起来您数据应该以另一种方式访问，这是从http://metacpan.org/pod/Spreadsheet::Read#Data-structure
$book = [
# Entry 0 is the overall control hash
{ sheets => 2,
sheet => {
"Sheet 1" => 1,
"Sheet 2" => 2,
},
type => "xls",
parser => "Spreadsheet::ParseExcel",
version => 0.59,
},
# Entry 1 is the first sheet
{ label => "Sheet 1",
maxrow => 2,
maxcol => 4,
cell => [ undef,
[ undef, 1 ],
[ undef, undef, undef, undef, undef, "Nugget" ],
],
A1 => 1,
B5 => "Nugget",
},
# Entry 2 is the second sheet
{ label => "Sheet 2",
:
:
]所以如果你想从$sheet中读取标签，它应该是$sheet->{label}，依此类推。
Stack Overflow用户
发布于 2013-05-16 22:31:43
问题如下：
@sheet->row_range不能在非对象上使用方法。对象必须是引用，即标量。它应该以$开头，而不是@。
页面原文内容由Stack Overflow提供。腾讯云小微IT领域专用引擎提供翻译支持
原文链接：
https://stackoverflow.com/questions/16589295
复制相关文章
相似问题
腾讯云开发者
