Beefy Boxes and Bandwidth Generously Provided by pair Networks
There's more than one way to do things

Re: Re: Re: capturing STDOUT

by jmcnamara (Monsignor)
on May 02, 2001 at 03:25 UTC ( #77178=note: print w/replies, xml ) Need Help??

in reply to Re: Re: capturing STDOUT
in thread capturing STDOUT

On my browser, this (1) prompts "do you want to open or save this downloaded file?" and (2) opens TWO windows, one blank.

As to why you see two windows, I cannot say. I cannot replicate this behaviour. Maybe someone with more CGI experience could explain this. However, I have noted some small differences in the way Netscape and IE handle the example program. The joys of CGI and browsers, I guess. %^)

If you wish to stream the file to Excel you can set the Content-type as follows:     print "Content-type: application/\n\n";
If you wish to prompt the user to view the file or save it with a specified filename you can do something like the following:
my $filename ="cgitest.xls"; print "Content-type: application/\n"; print "Content-Disposition: attachment; filename=$filename\n\n";
The example that you posted has been updated in more recent versions of the module to highlight these options. However, the view or save options can be overridden by the client browser.

Can you comment on your tie soln above, and the alternative as per

In a CGI program you have to redirect the Excel file to STDOUT. The easiest way to do this is to use the "Minus" file as a file name in the constructor:     my $workbook = Spreadsheet::WriteExcel->new("-");
The "Minus" file is documented in perlopentut*. The comment in the above example refers to it as a filehandle but it isn't, it is a file name.

As such you do not need to use tie at all in this situation. You would only need to use the above technique if you wanted to do something unusual such as stream the file to a browser and save a local copy.

The option of passing filehandles to the constructor was introduced mainly to allow the files to be streamed over sockets and to allow Spreadsheet::WriteExcel to work with mod_perl.

* Does anyone know of anywhere else that this is documented?

Replies are listed 'Best First'.
Re^4: capturing STDOUT
by Anonymous Monk on Oct 09, 2012 at 19:58 UTC

    My below is script not generating STDOUT in browser. I followed the instructions u have given bt didn't work.. Can someone help on this..

    #!/appl/CW_NETCOOL/PERL/bin/perl use strict; use Spreadsheet::WriteExcel; use CGI qw(:standard); # Set the filename and send the content type my $filename ="cgitest.xls"; print "Content-type: application/\n"; #print "Content-Disposition: attachment; filename=$filename\n\n"; # Create a new workbook and add a worksheet. The special Perl filehand +le will # redirect the output to STDOUT # binmode(STDOUT); my $workbook = Spreadsheet::WriteExcel->new(\*STDOUT); my $worksheet = $workbook->addworksheet(); # Set the column width for column 1 $worksheet->set_column(0, 0, 20); # Create a format my $format = $workbook->addformat(); $format->set_bold(); $format->set_size(15); $format->set_color('blue'); # Write to the workbook $worksheet->write(0, 0, "Hi Excel!", $format); $workbook->close;

      Here's your problem:

      print "Content-type: application/\n"; #print "Content-Disposition: attachment; filename=$filename\n\n";

      HTTP headers need to end in a double line break. Your Content-Type header has only one. Your Content-Disposition header would do the trick, but it's commented out.

      perl -E'sub Monkey::do{say$_,for@_,do{($monkey=[caller(0)]->[3])=~s{::}{ }and$monkey}}"Monkey say"->Monkey::do'

        I followed your suggestion but the file is getting download with prompt.

        How do I Print Xcel sheet in the browser

        Here My requirement is "User should able to copy the columns content from browser ouput". When I use html , we are able to copy the rows and not columns

        Why I'm preferring Xls , bcoz user should able to download the files as xls or csv with 'Sava as' Option

        Please help me on this

Log In?

What's my password?
Create A New User
Node Status?
node history
Node Type: note [id://77178]
and the monastery is silent...

How do I use this? | Other CB clients
Other Users?
Others surveying the Monastery: (5)
As of 2018-05-27 13:00 GMT
Find Nodes?
    Voting Booth?