#!/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";

            }
        
        }
    }    
}
[download]

[33:13] = -4.1
[33:13] =   (-4.10)
[download]

Hi
Thank you for the response.
I am using the following versions.
Spreadsheet-ParseExcel-0.33
Spreadsheet-ParseExcel-Simple-1.04
But I dont have the Data::Dumper::Simple module installed. Please confirm your versions.
Thanks for your time.

Wow, this is interesting.

I had Spreadsheet::ParseExcel, version 0.32 installed on my system. So I installed version 0.33, and here is the output from the script in my previous post now:

[33:13] = 7.42648557919274e+275
[33:13] =   742,648,557,919,274,215,596,480,721,467,753,739,797,881,83
+9,158,032,045,444,744,972,281,248,374,846,048,088,725,564,424,705,059
+,145,840,738,686,965,435,358,755,836,749,146,754,873,675,932,600,092,
+125,946,893,868,194,138,671,244,971,437,781,478,579,517,410,099,590,0
+90,026,114,048,017,693,855,644,672,962,827,489,552,711,307,891,602,71
+6,747,903,682,255,045,301,108,736.00
[download]

I'm wondering if this is a bug. You should maybe try reporting this bug on CPAN.