The contents of the ParseExcel.pm file are not a secret... I poked at it and found:
where I have marked line 1242. (This is Version: 0.41 of Spreadsheet::ParseExcel.)#--------------------------------------------------------------------- +--------- # _subHPageBreak (for Spreadsheet::ParseExcel) DK: P341 #--------------------------------------------------------------------- +--------- sub _subHPageBreak { my($oBook, $bOp, $bLen, $sWk) = @_; my @aBreak; my $iCnt = unpack("v", $sWk); return undef unless(defined $oBook->{_CurSheet}); #BIFF8 if($oBook->{BIFFVersion} >= verBIFF8) { for(my $i=0;$i<$iCnt;$i++) { my($iRow, $iColB, $iColE) = #<<< Line 1242 <<<<<<< +<<<<<<<< unpack('v3', substr($sWk, 2 + $i*6, 6)); # push @aBreak, [$iRow, $iColB, $iColE]; push @aBreak, $iRow; } } #Before BIFF8 else { for(my $i=0;$i<$iCnt;$i++) { my($iRow) = unpack('v', substr($sWk, 2 + $i*2, 2)); push @aBreak, $iRow; # push @aBreak, [$iRow, 0, 255]; } } @aBreak = sort {$a <=> $b} @aBreak; $oBook->{Worksheet}[$oBook->{_CurSheet}]->{HPageBreak} = \@aBreak; }
It looks as though the data structure being unpacked is not quite as expected. The warning is telling you that either the spreadsheet or this code is broken (or both, I suppose). This would not give me a warm feeling...
There is a use warnings at line 10 of the module. I don't know of a way of overriding that from outside the module (but some wiser monk may). All I can suggest is: if you really want to suppress the warning (not that I'd recommend that) you could get out your trusty editor and attack your D:/Perl/site/lib/Spreadsheet/ParseExcel.pm (noting that the warning will come back is this is later updated, of course).
In reply to Re: Errors while parsing a specific type of Excel File.
by gone2015
in thread Errors while parsing a specific type of Excel File.
by pankaj_it09
| For: | Use: | ||
| & | & | ||
| < | < | ||
| > | > | ||
| [ | [ | ||
| ] | ] |