Context Navigation

env.cgi

Revision 19579, 488 bytes (checked in by drry, 5 years ago)
fixed regexes. et cetera.

Line
1	#!/usr/bin/perl
2	use strict;
3
4	print "Content-type: text/html\n\n";
5
6	print "<html>\n";
7	print "<head><title>CGI Environment</title></head>\n";
8	print "<body>\n";
9
10
11	print "<h1>CGI 環境変数リスト</h1>\n";
12	print "<hr>";
13
14	foreach my $env_name (sort(keys(%ENV))) {
15	my $value = $ENV{ $env_name };
16	print "$env_name = $value <br> \n";
17	}
18
19	my $data;
20	read (STDIN, $data, $ENV{'CONTENT_LENGTH'});
21	print "POST data = $data <br> \n";
22
23	print "</body>\n";
24	print "</html>\n";

Note: See TracBrowser for help on using the browser.