Re: Big file returning blank spreadsheet

We're running Apache 2 in PerlRun mode so it's cgi compatible.  Bigfile.pl simply needs to output a header and redirect to standard out.  This code works for 600 iterations, but returns blank for 6000:-





#!/usr/bin/perl -w

###############################################################################
#
# Example of how to extend the Spreadsheet::WriteExcel 7MB limit with
# OLE::Storage_Lite: http://search.cpan.org/search?dist=OLE-Storage_Lite
#
# Nov 2000, Kawai, Takanori (Hippo2000)
#   Mail: GCD00051nifty.ne.jp">GCD00051nifty.ne.jp
# ;  http://member.nifty.ne.jp/hippo2000
#

## MODIFIED for test purposes - see http://search.cpan.org/dist/Spreadsheet-WriteExcel/ for proper documentation and examples

use strict;
use warnings;
use Spreadsheet::WriteExcel;

# print "Content-disposition: attachment;filename=test.xlsn";
print "Content-type: application/vnd.ms-excelnn";


my $workbook  = Spreadsheet::WriteExcel->new("-");
my $worksheet = $workbook->add_worksheet();

$worksheet->set_column(0, 50, 18);

# set iteration to 50 x 600 and this works fine, but 50 x 6000 returns zero bytes

for my $col (0 .. 50) {
    for my $row (0 .. 6000) {
       ; $worksheet->write($row, $col, "Row: $row Col: $col");
    }
}

$workbook->close();