|
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.
|
Copyright © 1996, 1998, 1999, 2000 Andreas Borchert, in HTML konvertiert am 07.02.2000 |