c:perl64 / lib / carp.pm第229行列表赋值中奇怪的数组副本

时间:2017-12-19 06:57:04

标签: perl

我在windows active Perl中编写了这段代码来读取Excel-XML文件  执行相同的代码有时会给我上面提到的错误  当我继续运行它。有时它会跑,然后又会升起  同样的错误。

    use strict;
    use warnings;


    use Spreadsheet::Reader::ExcelXML;
    my $workbook =  Spreadsheet::Reader::ExcelXML->new( file=>'perl.pl', group_return_type => 'value',);

    if ( !$workbook->file_opened ) {
            die $workbook->error(), ".\n";
    }

    my  $worksheet = $workbook->worksheet( 'Sheet5' );                                      

    my $value;
    while( !$value or $value ne 'EOF' ){
            $value = $worksheet->fetchrow_arrayref;
            my @a=@{$value};
            Function(@a);
    }

    sub Function {
            my @rows =@_;
            print "@rows\n";
    }

0 个答案:

没有答案