I deliberately removed CGI from the script because i personally would
never use CGI in something written to be run as straight handlers, and
it obviously wouldn't make any sense to use CGI in the CGI emulations,
and then not use it in the Handler version.
Not using heredoc's shouldn't really have any effect on the (already
flawed) results, because they weren't used in any of the examples. But
yeah, it was late and i should have been sleeping but i was dorking
around with this instead.
I'm personally not really interested in how using CGI affects the
numbers, but if other people would like to see them i can do this later
tonight.
Adam
Dodger wrote:
> Oh. I would also recommend three variants, based on what people often
> do, what people sometimes do, and what people probably should do when
> using CGI.pm, which can make a difference (just for thoroughness):
>
> Usually done:
> #!/usr/bin/perl
> use CGI;
> print header;
>
> print <<"EOF";
> <html>
> <body>
> <h1>Environment dump:</h1>
> <dl>
> @{[map "<dt>$_</dt>\n<dd>$ENV{$_}</dd>\n", sort keys %ENV]}
> </dl>
> </body>
> </html>
> EOF
>
> Sometimes do:
> #!/usr/bin/perl
> use strict;
> use CGI;
> my $cgi = new CGI;
> print $cgi->header;
>
> print <<"EOF";
> <html>
> <body>
> <h1>Environment dump:</h1>
> <dl>
> @{[map "<dt>$_</dt>\n<dd>$ENV{$_}</dd>\n", sort keys %ENV]}
> </dl>
> </body>
> </html>
> EOF
>
> Might do occassionally, and probably should do all the time if using CGI:
>
> #!/usr/bin/perl
> use strict;
> use CGI(); # note the difference -- using CGI in OO mode, don't import
> *anything*
> my $cgi = new CGI;
> print $cgi->header;
>
> print <<"EOF";
> <html>
> <body>
> <h1>Environment dump:</h1>
> <dl>
> @{[map "<dt>$_</dt>\n<dd>$ENV{$_}</dd>\n", sort keys %ENV]}
> </dl>
> </body>
> </html>
> EOF
>
