I ran the following code on your file:
#!/usr/bin/perl
use strict;
use warnings;
use Data::Dumper::Simple;
use Spreadsheet::ParseExcel;
my $workbook = 'test.xls';
my $worksheet_name = 'Sheet1';
my $wb = Spreadsheet::ParseExcel::Workbook -> Parse ( $workbook )
or warn ( "Problem opening $workbook!\n") ;
my $ws = $wb -> Worksheet( $worksheet_name );
foreach my $row ( $ws -> { MinRow } .. $ws -> { MaxRow } ) {
foreach my $col ( $ws -> { MinCol } .. $ws -> { MaxCol } ) {
my $cell = $ws -> { Cells }[ $row ][ $col ];
if ( $cell ) {
my $val = $cell -> { Val };
my $value = $cell -> Value;
if ( $row == 33 && $col == 13 ) {
print "[$row:$col] = $val\n";
print "[$row:$col] = $value\n";
}
}
}
}
This was the output:
[33:13] = -4.1
[33:13] = (-4.10)
As you can see, I was unable to reproduce the problem you are having. Are you using the latest version of Spreadsheet::ParseExcel?
|