in reply to Re: Perl & Personal Web Server
in thread Perl & Personal Web Server
#!/usr/bin/perl -w use strict; use CGI qw(:standard); print CGI::header(),"\n\n"; print CGI::start_html(),"\n\n"; print CGI::start_table(); print CGI::Tr(CGI::th({-align => 'left'},['KEY','VALUE'])),"\n\n"; foreach my $key (sort keys %ENV ) { print CGI::Tr( CGI::td( {-align => 'left'},[$key ,$ENV{$key}])), +"\n"; } print CGI::end_table(),"\n\n"; print CGI::end_html();
That way, the point is drilled in verbosely, to use CGI. :-)
And incidentally, for posterity, it will come in handy to visit this link.
|
|---|
| Replies are listed 'Best First'. | |
|---|---|
|
Ugly code! :-(
by orkysoft (Friar) on Mar 02, 2001 at 09:51 UTC | |
by Anonymous Monk on Mar 02, 2001 at 10:46 UTC |