Re: Perl header to serve up a .HTML file from a CGI directory

No need to use all that HTML::Template nonsense :) And you're loading stuff you don't need from CGI.pm.

#!Perl -w
use strict;
use CGI qw(header);

print header;
print while <DATA>;

__DATA__
[download]

But anyway, you probably want to arrange your web site so you don't need to serve static content from the cgi-bin directory.

Comment on Re: Perl header to serve up a .HTML file from a CGI directory Download Code

Replies are listed 'Best First'.
Re^2: Perl header to serve up a .HTML file from a CGI directory by ambrus (Abbot) on Mar 18, 2007 at 15:36 UTC
No need to load all that perl nonsense. I'm using this: `#!/usr/bin/tail -n+2 Content-Type: text/plain; charset=ISO-8859-2` [download] Replacing the content type with the approperiate one of course (I'm using this with a PNG file too).	[reply] [d/l]
Re^2: Perl header to serve up a .HTML file from a CGI directory by GrandFather (Saint) on Mar 13, 2007 at 10:17 UTC
Or even better: `#!Perl -w use strict; use CGI qw(header); print header (), <DATA>; __DATA__` [download] DWIM is Perl's answer to Gödel	[reply] [d/l]
Re^3: Perl header to serve up a .HTML file from a CGI directory by davorg (Chancellor) on Mar 13, 2007 at 10:19 UTC
Simpler, but not necessarily better. I have a pathological aversion to reading an entire file into memory if it isn't necessary :-) -- <http://dave.org.uk> "The first rule of Perl club is you do not talk about Perl club." -- Chip Salzenberg	[reply]