gpt4 book ai didi

excel - 使用 Spreadsheet::ParseExcel 时出错

转载 作者:行者123 更新时间:2023-12-01 22:33:26 29 4
gpt4 key购买 nike

编译以下代码时出现 2 个错误:

#!/usr/bin/perl
use strict;
use warnings;

use Spreadsheet::ParseExcel;

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

my ( $row_first, $row_last ) = $xls->row_range();
my ( $col_first, $col_last ) = $xls->col_range();

my $csv = '';

for my $row ( $row_first .. $row_last ) { #Step through each row
for my $col ( $col_first .. $col_last ) { #Step through each column
my $cell = $xls->get_cell( $row, $col ); #Get the current cell

next unless $cell;

$csv .= $cell->unformatted(); #Get the cell's raw data -- no border colors or anything like that

if ( $col == $col_last ) {
$csv .= "\n"; #Make a new line at the end of the row
} else {
$csv .= ",";
}
}
}

错误:

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

导致错误的原因是什么?

最佳答案

这些错误意味着您正在使用 strict,但没有使用 my 声明某些变量。例如,您声明了 $xmlprser,但随后您尝试使用未声明的 $parser。您复制的代码有错误。

获取代码的更好位置是源代码本身:Spreadsheet::ParseExcel

尝试:

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

关于excel - 使用 Spreadsheet::ParseExcel 时出错,我们在Stack Overflow上找到一个类似的问题: https://stackoverflow.com/questions/26666710/

29 4 0
Copyright 2021 - 2024 cfsdn All Rights Reserved 蜀ICP备2022000587号
广告合作:1813099741@qq.com 6ren.com