Skip Menu |

Preferred bug tracker

Please visit the preferred bug tracker to report your issue.

This queue is for tickets about the Spreadsheet-ParseExcel CPAN distribution.

Maintainer(s)' notes

If you are reporting a bug in Spreadsheet::ParseExcel here are some pointers

1) State the issues as clearly and as concisely as possible. A simple program or Excel test file (see below) will often explain the issue better than a lot of text.

2) Provide information on your system, version of perl and module versions. The following program will generate everything that is required. Put this information in your bug report.

    #!/usr/bin/perl -w

    print "\n    Perl version   : $]";
    print "\n    OS name        : $^O";
    print "\n    Module versions: (not all are required)\n";

    my @modules = qw(

    for my $module (@modules) {
        my $version;
        eval "require $module";

        if (not $@) {
            $version = $module->VERSION;
            $version = '(unknown)' if not defined $version;
        else {
            $version = '(not installed)';

        printf "%21s%-24s\t%s\n", "", $module, $version;


3) Upgrade to the latest version of Spreadsheet::ParseExcel (or at least test on a system with an upgraded version). The issue you are reporting may already have been fixed.

4) Create a small example program that demonstrates your problem. The program should be as small as possible. A few lines of codes are worth tens of lines of text when trying to describe a bug.

5) Supply an Excel file that demonstrates the problem. This is very important. If the file is big, or contains confidential information, try to reduce it down to the smallest Excel file that represents the issue. If you don't wish to post a file here then send it to me directly:

6) Say if the test file was created by Excel, OpenOffice, Gnumeric or something else. Say which version of that application you used.

7) If you are submitting a patch you should check with the maintainer whether the issue has already been patched or if a fix is in the works. Patches should be accompanied by test cases.

Asking a question

If you would like to ask a more general question there is the Spreadsheet::ParseExcel Google Group.

Report information
The Basics
Id: 45009
Status: resolved
Priority: 0/
Queue: Spreadsheet-ParseExcel

Owner: Nobody in particular
Requestors: Corey Zeller (no email address)

Bug Information
Severity: Normal
Broken in: 0.49
Fixed in: (no value)

Subject: Bug in Utility::ExcelFmt with 3-Part Formats (Patch)
Download (untitled) / with headers
text/plain 1.2k is throwing warnings when a cell contains a three-part format ([pos];[neg];[zero]) and when the value of the cell is zero. Furthermore the formatted values produced by Cell::value() are wrong. The attached Excel file fmtest.xls contains 1 sheet with the following values: A1: 5 A2: 0 A3: -3 The number format in all three cells is 0.00;(0.0);0% so Excel displays them as: A1: 5.00 A2: 0% A3: (3.0) The attached program produces this output (removed the output from cluck() for brevity): (0, 0) : (5.0) Use of uninitialized value in substitution (s///) at /usr/local/share/perl/5.8.8/Spreadsheet/ParseExcel/ line 183. Use of uninitialized value in substitution (s///) at /usr/local/share/perl/5.8.8/Spreadsheet/ParseExcel/ line 188. Use of uninitialized value in length at /usr/local/share/perl/5.8.8/Spreadsheet/ParseExcel/ line 209. (1, 0) : 0 (2, 0) : -300% Workbook contains 1 sheets Completed with 3 cells and 3 warnings After applying the attached patch to the output is: (0, 0) : 5.00 (1, 0) : 0% (2, 0) : (-3.0) Workbook contains 1 sheets Completed with 3 cells and 0 warnings fmtest.xls was produced with MS Excel 2003. info.txt contains my relevant system info.
Subject: fmtest.xls
Download fmtest.xls
application/ 11.5k

Message body not shown because it is not plain text.

Subject: info.txt
Download info.txt
text/plain 522b
Perl version : 5.008008 OS name : linux Module versions: (not all are required) Spreadsheet::ParseExcel 0.49 Scalar::Util 1.18 Unicode::Map (not installed) Spreadsheet::WriteExcel 2.25 Parse::RecDescent 1.94 File::Temp 0.21 OLE::Storage_Lite 0.18 IO::Stringy 2.110
text/x-diff 460b
--- 2009-04-13 13:01:48.000000000 -0400 +++ 2009-04-13 13:02:36.000000000 -0400 @@ -151,13 +151,13 @@ } elsif ( @formats == 3 ) { if ( $number == 0 ) { - $section = 3; + $section = 2; } elsif ( $number < 0 ) { - $section = 2; + $section = 1; } else { - $section = 1; + $section = 0; } } else {
text/x-perl 642b
#!/usr/bin/perl use warnings; use strict; use Spreadsheet::ParseExcel; use Carp qw(cluck); my ($c, $w) = (0, 0); $SIG{__WARN__} = sub { cluck $_[0]; $w++; }; my $filename = "fmtest.xls"; my $parser = Spreadsheet::ParseExcel->new(CellHandler => \&parser_cb, NotSetCell => 1); my $workbook = $parser->Parse($filename) or die "Could not open file!"; my @sheets = $workbook->worksheets(); printf "Workbook contains %d sheets\n", scalar @sheets; print "Completed with $c cells and $w warnings\n"; exit 0; sub parser_cb { my ($workbook, $sheet_index, $row, $col, $cell) = @_; my $v = $cell->value(); print "($row, $col) : $v\n"; $c++; }
Hi, Thanks for the very detailed bug report. I'll fix this in the next release. John. --
Download (untitled) / with headers
text/plain 224b
Hi, This issue has been fixed in version 0.51 of Spreadsheet::WriteExcel. Thank you for your help in identifying/fixing this issue. John. --

This service is sponsored and maintained by Best Practical Solutions and runs on infrastructure.

Please report any issues with to