Ein CGI-Testprogramm

testcgi.pl

#!/usr/local/bin/perl -Tw print "Content-Type: text/html\n\n"; print "<HTML><BODY><H1>Testseite</H1>\n<PRE>\n"; foreach my $param (keys %ENV) { print "$param = ", $ENV{$param}, "\n"; } print "</PRE>\n"; my $nofbytes = $ENV{'CONTENT_LENGTH'}; if (defined $nofbytes) { my $input; read STDIN, $input, $nofbytes; print "<P>Got following input:<P>\n<PRE>\n"; print $input; print "</PRE>\n"; } print "\n</HTML>\n";

Wenn die Umgebungsvariable CONTENT-LENGTH gesetzt ist, wurden per POST Daten übermittelt, die über die Standardeingabe zur Verfügung stehen.

Mehr über HTML gibt es unter:
http://www.mathematik.uni-ulm.de/sai/ws00/sepraxis/intro/

	Wenn die Umgebungsvariable CONTENT-LENGTH gesetzt ist, wurden per POST Daten übermittelt, die über die Standardeingabe zur Verfügung stehen.
	Mehr über HTML gibt es unter: http://www.mathematik.uni-ulm.de/sai/ws00/sepraxis/intro/