Perl CGI output in PDF

valavanp has asked for the wisdom of the Perl Monks concerning the following question:

I need to store the values from cgi output file to a pdf file. I am able to do that, but my problem is the pdf file name should be of the name which i give in the header part, but it's taking the script file name. Can anyone tell me how to do that. Below is the code which i give it in my script file. Thanks Monks for your valuable suggestion and regret if there is any discrepancies caused.

The file name is Script.pl

#!/usr/bin/perl 

use strict;
use warnings;
use CGI;

my $query=new CGI;
my $mimetype='application/pdf';
my @a="test test test";

print $query->header(-expires=>'now', -type=$mimetype, -disposition=>"
+inline:filename=sample.pdf", -filename=>'sample.pdf');
print @a;
[download]

20060826 Janitored by Corion: Added formatting, code tags, as per Writeup Formatting Tips

Comment on Perl CGI output in PDF Download Code

Replies are listed 'Best First'.
Re: Perl CGI output in PDF by Joost (Canon) on Aug 26, 2006 at 11:33 UTC
the header name is "Content-Disposition" not "disposition" or "filename". update: And you should use a semi-colon to separate the filename argument. In other words, you should probably use `print $query->header(-expires=>'now', -type=$mimetype, -content_dispos +ition=>"inline; filename=sample.pdf");` [download] "What should it profit a man, if he should win a flame war, yet lose his cool?"	[reply] [d/l]
Re: Perl CGI output in PDF by blazar (Canon) on Aug 27, 2006 at 07:38 UTC
`print $query->header(-expires=>'now', -type=$mimetype, -disposition=>" +inline:filename=sample.pdf", -filename=>'sample.pdf');` [download] In addition to Joost's reply, I also notice that you have some `=`'s instead of `=>`'s, which should issue an error. I deduce that you either did not run the code or more probably retyped it. Which shows why it is a good practice not to, but to copy and paste it instead.	[reply] [d/l] [select]

Back to Seekers of Perl Wisdom