|
#!/usr/local/bin/perl -T use strict; use warnings; 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 - 2003 Andreas Borchert, in HTML konvertiert am 01.10.2003 |