« Return to Thread: Output an excel file

Re: Output an excel file

by Rhesa Rozendaal-2 :: Rate this Message:

First, have you tried CAP::Output::XSV yet? It's nice and simple if you don't
need any of the fancy Spreadsheet::WriteExcel features.

fREW Schmidt wrote:

> This is my (coworkers) problem:
>
> My web app runs on Apache mod_perl using CGI::Application. I want to provide
> a download of a generated file. In the past (before we were using
> mod_perland CGI::App) I just spooled out a csv file to
> STDOUT as it was generated. Now I'm shooting for a little more refinement -
> creating an Excel spreadsheet using Spreadsheet::WriteExcel - and I can't
> seem it to get to print it out from the file handle.
>
> sub export_list {
> my $self = shift;
>
> binmode(STDOUT);
>
> my $str;
> open my $fh, '>', \$str;
> my $workbook = Spreadsheet::WriteExcel->new($fh);
> my $worksheet = $workbook->add_worksheet();
> $worksheet->write_col(0,0, ['some','data','here']);
>
> warn $str;
> return $str;
> }
>
>
> The output is just a blank response, and the warn is blank as well.

I'm missing the call to $worksheet->close in that code. I bet that'll fix your
problem.

> The method I'm using to write the spreadsheet to a filehandle is pretty much
> straight out of the
> documentation<http://search.cpan.org/dist/Spreadsheet-WriteExcel/lib/Spreadsheet/WriteExcel.pm#new%28%29>,
> so I assume the problem is due to some CGI::App noobery on my part. The
> documentation's suggested methods for filehandles and mod_perl proved pretty
> fruitless as well.
>
> I guess I should mention I'm running on Windows, and that my current
> workaround is to create a file and provide the user with a link to it. That
> poses more problems, however, in regards to clearing out the directory and
> when to do so, and also authentication for access to the generated files.

You could always use IO::File->new_tmpfile to pass into new(), and afterwards
seek + print.

There are more complex suggestions I could give, but let's see where this gets
you first :-)

Rhesa

##### CGI::Application community mailing list ################
## ##
## To unsubscribe, or change your message delivery options, ##
## visit: http://www.erlbaum.net/mailman/listinfo/cgiapp ##
## ##
## Web archive: http://www.erlbaum.net/pipermail/cgiapp/ ##
## Wiki: http://cgiapp.erlbaum.net/ ##
## ##
################################################################

« Return to Thread: Output an excel file